33 lines
698 B
Haskell
33 lines
698 B
Haskell
module Main where
|
|
|
|
import Data.Text (Text)
|
|
import Utils (readInput)
|
|
import qualified Day01
|
|
import qualified Day02
|
|
import qualified Day03
|
|
import qualified Day04
|
|
|
|
|
|
run :: (Show b, Show c)
|
|
=> Int
|
|
-> (Text -> Either String a)
|
|
-> (a -> b)
|
|
-> (a -> c)
|
|
-> IO ()
|
|
run day parse solveA solveB = do
|
|
text <- readInput day
|
|
case parse text of
|
|
Left err -> putStrLn err
|
|
Right re -> do
|
|
putStrLn $ "Day " <> show day
|
|
print . solveA $ re
|
|
print . solveB $ re
|
|
|
|
main :: IO ()
|
|
main = do
|
|
run 1 Day01.parse Day01.solveA Day01.solveB
|
|
run 2 Day02.parse Day02.solveA Day02.solveB
|
|
run 3 Day03.parse Day03.solveA Day03.solveB
|
|
run 4 Day04.parse Day04.solveA Day04.solveB
|
|
pure ()
|