From 934e5971ef0162fea2c6ff051991b56ac329477e Mon Sep 17 00:00:00 2001
From: Daniele Fucini <dfucini@gmail.com>
Date: Tue, 24 Dec 2024 16:10:54 +0100
Subject: [PATCH] Fix output for Day 24, Puzzle 1

---
 src/Day24.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Day24.hs b/src/Day24.hs
index a010eb1..4c4b9b6 100644
--- a/src/Day24.hs
+++ b/src/Day24.hs
@@ -26,9 +26,9 @@ toDecimal n = sum $ zipWith (*) n (iterate (*2) 1)
 day24_1 :: IO ()
 day24_1 = do
   [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]
       connectionsMap = M.fromList wireConnections
       wiresMap = M.fromList $ [(fst wc, Nothing) | wc <- wireConnections] ++ inputsList
       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)