3 lines
125 B
Haskell
3 lines
125 B
Haskell
import Data.List
|
|
w%(h:t)|w>""=read w+h:t|let=0:h:t
|
|
main=interact$show.((,).head<*>sum.take 3).reverse.sort.foldr(%)[0].lines
|