14 lines
325 B
Haskell
14 lines
325 B
Haskell
|
-- 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
|