3 lines
127 B
Haskell
3 lines
127 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
|