51 lines
993 B
Haskell
51 lines
993 B
Haskell
module Main (main) where
|
|
|
|
import Day01 (day01_1, day01_2)
|
|
import Day02 (day02_1, day02_2)
|
|
import Day03 (day03_1, day03_2)
|
|
import Day04 (day04_1, day04_2)
|
|
import Day05 (day05_1, day05_2)
|
|
import System.Environment (getArgs)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
case args of
|
|
"1" : "1" : _ -> day01_1
|
|
"1" : "2" : _ -> day01_2
|
|
"1" : _ -> do
|
|
day01_1
|
|
day01_2
|
|
"2" : "1" : _ -> day02_1
|
|
"2" : "2" : _ -> day02_2
|
|
"2" : _ -> do
|
|
day02_1
|
|
day02_2
|
|
"3" : "1" : _ -> day03_1
|
|
"3" : "2" : _ -> day03_2
|
|
"3" : _ -> do
|
|
day03_1
|
|
day03_2
|
|
"4" : "1" : _ -> day04_1
|
|
"4" : "2" : _ -> day04_2
|
|
"4" : _ -> do
|
|
day04_1
|
|
day04_2
|
|
"5" : "1" : _ -> day05_1
|
|
"5" : "2" : _ -> day05_2
|
|
"5" : _ -> do
|
|
day05_1
|
|
day05_2
|
|
"all" : _ -> do
|
|
day01_1
|
|
day01_2
|
|
day02_1
|
|
day02_2
|
|
day03_1
|
|
day03_2
|
|
day04_1
|
|
day04_2
|
|
day05_1
|
|
day05_2
|
|
_ -> error "Not implemented"
|