1 -- Writeup at https://work.njae.me.uk/2021/12/01/advent-of-code-2021-day-1/
7 do numStrs <- readFile "data/advent01.txt"
8 let nums = map (read @Int) $ lines numStrs
13 part1 = countIncreasing
16 part2 nums = countIncreasing $ map sum windows
17 where windows = filter ((== 3) . length) $ map (take 3) $ tails nums
19 countIncreasing :: [Int] -> Int
20 countIncreasing nums = length $ filter (uncurry (>)) $ zip (tail nums) nums