WIP AOC 2022 & 2023

AOC2022/app/Main.hs

@@ -0,0 +1,25 @@
+module Main (main)
+where
+
+import System.Environment
+
+import Day01
+import Day02
+import Day03
+import Day04
+import Day05
+
+main :: IO ()
+main = do
+  args <- getArgs
+  dayPicker args
+
+dayPicker :: [String] -> IO ()
+dayPicker [] = putStrLn "Usage: script [day]"
+dayPicker ("01":_) = day01
+dayPicker ("02":_) = day02
+dayPicker ("03":_) = day03
+dayPicker ("04":_) = day04
+dayPicker ("05":_) = day05
+
+dayPicker _ = putStrLn "Unavailable date"