Back to task

177 symbols haskell
Fri Mar 13 16:07:45 2015 YoshikuniJujo
import Data.List
main=interact$unlines.map(\(n,a)->n++" "++show a).map(\p->(fst$head p,sum$map snd p)).groupBy((.fst).(==).fst).sort.map(\l->let[n,a]=words l in(n,read a)).lines


Leave a comment

Parsed as Markdown

Login to leave a comment