WIP AOC 2022 & 2023

AOC2023/app/Main.hs

@@ -0,0 +1,54 @@
+module Main (main) where
+
+import System.Environment
+
+import Day01
+import Day02
+import Day03
+import Day04
+import Day05
+import Day06
+import Day07
+import Day08
+import Day09
+import Day10
+import Day11
+import Day12
+import Day13
+import Day14
+import Day15
+import Day16
+import Day17
+import Day18
+import Day19
+import Day20
+
+
+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 ("06":_) = day06
+dayPicker ("07":_) = day07
+dayPicker ("08":_) = day08
+dayPicker ("09":_) = day09
+dayPicker ("10":_) = day10
+dayPicker ("11":_) = day11
+dayPicker ("12":_) = day12
+dayPicker ("13":_) = day13
+dayPicker ("14":_) = day14
+dayPicker ("15":_) = day15
+dayPicker ("16":_) = day16
+dayPicker ("17":_) = day17
+dayPicker ("18":_) = day18
+dayPicker ("19":_) = day19
+dayPicker ("20":_) = day20
+dayPicker _ = putStrLn "Unavailable date"