AoC/2022/day01/day01.hs

15 lines
307 B
Haskell
Raw Normal View History

2022-12-01 15:53:16 +01:00
import Data.List.Split
import Data.List
main :: IO ()
main = do
input <- map (map read . lines) <$> splitOn "\n\n" <$> readFile "input"
print $ day1a input
print $ day1b input
day1a :: [[Int]] -> Int
day1a = maximum . map sum
day1b :: [[Int]] -> Int
day1b = sum . take 3 . reverse . sort . map sum