|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
import qualified Data.Text as T
|
|
import Data.List (sort)
|
|
|
|
main = interact $
|
|
show
|
|
. sum
|
|
. (\l -> [l!!0, l!!1, l!!2]) -- this is stupid :)
|
|
. reverse . sort
|
|
. map (sum . map read . lines . T.unpack)
|
|
. T.splitOn "\n\n" . T.pack |