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