2 lines
136 B
Haskell
2 lines
136 B
Haskell
import Data.List
|
|
main=interact$show.(\s->(head s,sum$take 3$s)).reverse.sort.map(sum.map read.filter(/="")).(groupBy(\b->(/=""))).lines
|