12 lines
203 B
Haskell
12 lines
203 B
Haskell
module Main where
|
|
|
|
import Utils (readInput)
|
|
import qualified Day01
|
|
|
|
|
|
main :: IO ()
|
|
main = do
|
|
text <- readInput 1
|
|
print . Day01.solveA . Day01.parse $ text
|
|
print . Day01.solveB . Day01.parse $ text
|