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