19 lines
366 B
Haskell
19 lines
366 B
Haskell
module Main where
|
|
|
|
import Text.Printf (printf)
|
|
import qualified Day01
|
|
import qualified Day03
|
|
|
|
readDay :: Int -> IO String
|
|
readDay n = readFile $ getPath n
|
|
where
|
|
getPath n = "../.inputs/" <> printf "%02d" n <> ".txt"
|
|
|
|
|
|
main :: IO ()
|
|
main = do
|
|
content <- readDay 3
|
|
let parsed = Day03.parse content
|
|
print $ Day03.solve1 parsed
|
|
print $ Day03.solve2 parsed
|