32 lines
644 B
Haskell
32 lines
644 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
|
|
module Main where
|
|
|
|
import Lib
|
|
|
|
import System.Environment (getArgs)
|
|
|
|
paths :: [FilePath]
|
|
paths =
|
|
[ "./data/01.in"
|
|
, "./data/02.in"
|
|
, "./data/03.in"
|
|
]
|
|
|
|
solutions :: [(Int, Day, FilePath)]
|
|
solutions = zip3 [1 ..] (map head days) paths
|
|
|
|
runAll :: [(Int, Day, FilePath)] -> IO ()
|
|
runAll = mapM_ (\(dayNum, day, path) -> run day path >>= printDR dayNum)
|
|
|
|
header :: IO ()
|
|
header = putStrLn "[ Day ]------(1)-----+------(2)----"
|
|
|
|
usage :: IO ()
|
|
usage = putStrLn "./Main"
|
|
|
|
main :: IO ()
|
|
main =
|
|
getArgs >>= \case
|
|
["all"] -> header >> runAll solutions
|
|
_ -> header >> runAll [last solutions] |