Day 23

Sadly too slow

app/Main.hs

@@ -2,40 +2,39 @@
 
 module Main where
 
-import Lib
-
-import System.Environment (getArgs)
 import Data.List (uncons)
 import Data.Maybe (mapMaybe)
+import Lib
+import System.Environment (getArgs)
 
 paths :: [FilePath]
 paths =
-    [ "./data/01.in"
-    , "./data/02.in"
-    , "./data/03.in"
-    , "./data/04.in"
-    , "./data/05.in"
-    , "./data/06.in"
-    , "./data/07.in"
-    , "./data/08.in"
-    , "./data/09.in"
-    , "./data/10.in"
-    , "./data/11.in"
-    , "./data/12.in"
-    , "./data/13.in"
-    , "./data/14.in"
-    , "./data/15.in"
-    , "./data/16.in"
-    , "./data/17.in"
-    , "./data/18.in"
-    , "./data/19.in"
-    , "./data/20.in"
-    , "./data/21.in"
-    , ""
-    , ""
-    , "./data/24.in"
-    , "./data/25.in"
-    ]
+  [ "./data/01.in",
+    "./data/02.in",
+    "./data/03.in",
+    "./data/04.in",
+    "./data/05.in",
+    "./data/06.in",
+    "./data/07.in",
+    "./data/08.in",
+    "./data/09.in",
+    "./data/10.in",
+    "./data/11.in",
+    "./data/12.in",
+    "./data/13.in",
+    "./data/14.in",
+    "./data/15.in",
+    "./data/16.in",
+    "./data/17.in",
+    "./data/18.in",
+    "./data/19.in",
+    "./data/20.in",
+    "./data/21.in",
+    "",
+    "./data/23.in",
+    "./data/24.in",
+    "./data/25.in"
+  ]
 
 solutions :: [(Int, Day, FilePath)]
 solutions =
@@ -51,12 +50,15 @@ runAll = mapM_ (\(dayNum, day, path) -> run day path >>= printDR dayNum)
 usage :: IO ()
 usage = putStrLn "./Main"
 
-
 main :: IO ()
 main =
-    printHeader
-        >> getArgs
-        >>= (\case
+  printHeader
+    >> getArgs
+    >>= ( \case
             ["all"] -> runAll solutions
-            _ -> runAll [last solutions])
-        >> printFooter
+            ("day" : dayNumStrs) ->
+              let dayNums = map read dayNumStrs
+               in runAll (filter (\(a, _, _) -> a `elem` dayNums) solutions)
+            _ -> runAll [last solutions]
+        )
+    >> printFooter