Add Day 2 solutions

2025-12-02 18:32:29 +01:00
parent fbc08a2e45
commit 32687cdfdd
4 changed files with 57 additions and 1 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,6 +1,7 @@
 module Main (main) where

 import Day01 (day01_1, day01_2)
+import Day02 (day02_1, day02_2)
 import System.Environment (getArgs)

 main :: IO ()
@@ -12,7 +13,14 @@ main = do
    "1" : _ -> do
      day01_1
      day01_2
+    "2" : "1" : _ -> day02_1
+    "2" : "2" : _ -> day02_2
+    "2" : _ -> do
+      day02_1
+      day02_2
    "all" : _ -> do
      day01_1
      day01_2
+      day02_1
+      day02_2
    _ -> error "Not implemented"