mirror of
https://github.com/mx42/adventofcode.git
synced 2026-01-14 05:49:52 +01:00
26 lines
434 B
Haskell
26 lines
434 B
Haskell
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"
|