adventOfCode-2022/src/AoC/Day1.hs

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