Day 23, Part 1

src/Main.hs

@@ -20,6 +20,7 @@ import Day17 (day17_1, day17_2)
 import Day18 (day18_1, day18_2)
 import Day19 (day19_1)
 import Day22 (day22_1)
+import Day23 (day23_1)
 import System.Environment (getArgs)
 
 main :: IO ()
@@ -106,6 +107,7 @@ main = do
       day18_2
     "19" : "1" : _ -> day19_1
     "22" : "1" : _ -> day22_1
+    "23" : "1" : _ -> day23_1
     "all" : _ -> do
       day01_1
       day01_2
@@ -142,4 +144,5 @@ main = do
       day18_2
       day19_1
       day22_1
+      day23_1
     _ -> error "Not implemented"