You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
329 B
16 lines
329 B
module Main where |
|
|
|
import qualified Day1 (fixExpenseReport) |
|
|
|
day1 :: IO () |
|
day1 = do |
|
r <- readFile "./input/day1" |
|
putStr "[Day 1-1] fix: " |
|
print . Day1.fixExpenseReport 2020 2 . fmap read . lines $ r |
|
putStr "[Day 1-2] fix: " |
|
print . Day1.fixExpenseReport 2020 3 . fmap read . lines $ r |
|
|
|
|
|
main :: IO () |
|
main = do |
|
day1
|
|
|