From 566465da30e98ffc71ced69c76bf4fd3d1fff73c Mon Sep 17 00:00:00 2001 From: Christoph Stahl Date: Thu, 1 Dec 2022 20:32:11 +0100 Subject: [PATCH] Day 1: 125 --- day1.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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