Day 24 + Day 25

app/Main.hs

@@ -5,6 +5,8 @@ module Main where
 import Lib
 
 import System.Environment (getArgs)
+import Data.List (uncons)
+import Data.Maybe (mapMaybe)
 
 paths :: [FilePath]
 paths =
@@ -29,10 +31,19 @@ paths =
     , "./data/19.in"
     , "./data/20.in"
     , "./data/21.in"
+    , ""
+    , ""
+    , "./data/24.in"
+    , "./data/25.in"
     ]
 
 solutions :: [(Int, Day, FilePath)]
-solutions = zip3 [1 ..] (map head days) paths
+solutions =
+  let maybeSolutions = zip3 [1 ..] days paths
+      available (num, daySolutions, filepath) = do
+        (firstSolution, _) <- uncons daySolutions
+        return (num, firstSolution, filepath)
+   in mapMaybe available maybeSolutions
 
 runAll :: [(Int, Day, FilePath)] -> IO ()
 runAll = mapM_ (\(dayNum, day, path) -> run day path >>= printDR dayNum)