advent-of-code/2022/01/second.hs

14 lines
325 B
Haskell
Raw Normal View History

2023-03-05 23:39:47 +01:00
-- requires cabal install --lib split
module Main where
import Data.List (sort)
import Data.List.Split (splitOn)
parseAndSum :: String -> [Int]
parseAndSum = map (sum . map read . lines) . splitOn "\n\n"
main :: IO ()
main = do
input <- readFile "input"
print . sum . (take 3) . reverse . sort $ parseAndSum input