13 lines
401 B
Haskell
13 lines
401 B
Haskell
{-# LANGUAGE ScopedTypeVariables #-}
|
|
import Data.List.Split
|
|
import Data.List
|
|
|
|
main = do
|
|
lines <- readFile "1.in"
|
|
putStrLn . show . solveB $ lines
|
|
where
|
|
solveA = maximum . groupElves
|
|
solveB = sum . take 3 . reverse . sort . groupElves
|
|
groupElves = map ( sum . map parseInt . words) . splitOn "\n\n"
|
|
parseInt = read :: String -> Integer
|