fuxino/AdventOfCode2024
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix output for Day 24, Puzzle 1

Browse Source
This commit is contained in:
daniele 2024-12-24 16:10:54 +01:00
parent 4854a77a63
commit 934e5971ef
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Day24.hs
View File

@ -26,9 +26,9 @@ toDecimal n = sum $ zipWith (*) n (iterate (*2) 1)
day24_1 :: IO () day24_1 :: IO ()
day24_1 = do day24_1 = do
[inputs, connections] <- splitOn [""] . lines <$> readFile "input/day24.txt" [inputs, connections] <- splitOn [""] . lines <$> readFile "input/day24.txt"
let inputsList = [(i, Just ((read :: String -> Int) v)) | [i, v] <- map (splitOn ": ") inputs] let inputsList = [(i, Just (read v)) | [i, v] <- map (splitOn ": ") inputs]
wireConnections = [(w, c) | [c, w] <- map (splitOn " -> ") connections] wireConnections = [(w, c) | [c, w] <- map (splitOn " -> ") connections]
connectionsMap = M.fromList wireConnections connectionsMap = M.fromList wireConnections
wiresMap = M.fromList $ [(fst wc, Nothing) | wc <- wireConnections] ++ inputsList wiresMap = M.fromList $ [(fst wc, Nothing) | wc <- wireConnections] ++ inputsList
outputs = map (\x -> getWireValue x wiresMap connectionsMap) (filter (\(x : _) -> x == 'z') . sort $ M.keys wiresMap) outputs = map (\x -> getWireValue x wiresMap connectionsMap) (filter (\(x : _) -> x == 'z') . sort $ M.keys wiresMap)
print $ toDecimal outputs putStrLn $ "Day 24, Puzzle 1 solution: " ++ show (toDecimal outputs)