2023-11-28 22:21:26 +01:00
|
|
|
module Main where
|
|
|
|
|
2023-11-29 22:58:49 +01:00
|
|
|
import Utils (readInput)
|
|
|
|
import qualified Day01
|
2023-12-01 23:03:57 +01:00
|
|
|
|
2023-11-28 22:21:26 +01:00
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
main = do
|
2023-11-29 22:58:49 +01:00
|
|
|
text <- readInput 1
|
2023-12-01 23:03:57 +01:00
|
|
|
print . Day01.solveA . Day01.parse $ text
|
|
|
|
print . Day01.solveB . Day01.parse $ text
|