5 do numStrs <- readFile "data/advent01.txt"
6 let nums = map (read @Int) $ lines numStrs
11 part1 = countIncreasing
14 part2 nums = countIncreasing $ map sum windows
15 where windows = filter ((== 3) . length) $ map (take 3) $ tails nums
17 countIncreasing :: [Int] -> Int
18 -- countIncreasing nums = length $ filter (> 0) $ zipWith (-) (tail nums) nums
19 countIncreasing nums = length $ filter (uncurry (>)) $ zip (tail nums) nums