diff --git a/day1.hs b/day1.hs index 82699dd..4a157a0 100644 --- a/day1.hs +++ b/day1.hs @@ -1,3 +1,3 @@ import Data.List -w%(h:t)|w>""=(read w+h):t|let=0:h:t +w%(h:t)|w>""=read w+h:t|let=0:h:t main=interact$show.((,).head<*>sum.take 3).reverse.sort.foldr(%)[0].lines