|
|
|
module AoC.Day1 where
|
|
|
|
import Data.List (groupBy,null,sort)
|
|
|
|
parseInput :: String -> [[Int]]
|
|
parseInput = map (map read) . map tail . groupBy (\l r -> (not $ null r)) . lines
|
|
|
|
solveA = maximum . map sum . parseInput
|
|
solveB = sum . take 3 . reverse . sort . map sum . parseInput
|