From 5a2408185de3966d373b83345051309077615569 Mon Sep 17 00:00:00 2001 From: Christoph Stahl Date: Sat, 4 Dec 2021 02:46:55 +0100 Subject: [PATCH] Day 2: 222 --- d2golf.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/d2golf.hs b/d2golf.hs index 5d0cc2e..3d0d21d 100644 --- a/d2golf.hs +++ b/d2golf.hs @@ -1,5 +1,7 @@ -q(h:f:_)(d,n)|"f"==d=[h,f+n]|let=[d%h$n,f] -p[h,f,a](d,n)|"f"==d=[h+n,f+n*a,a]|let=[h,f,d%a$n] -(%)"u"=(-) +r=read +q(h:f:_)[d:_,n]|'f'==d=[h,f+r n]|let=[d%h$r n,f] +p[h,f,a][d:_,n]|'f'==d=[h+r n,f+r n*a,a]|let=[h,f,d%a$r n] +(%)'u'=(-) (%)_=(+) -main=interact$show.(<$>[p,q]).((\(a:b:_)->a*b).).flip(`foldl`[0,0,0]).map(fmap read.splitAt 1.map head.words).lines \ No newline at end of file +m=map +main=interact$show.m(\(a:b:_)->a*b).(`m`[p,q]).flip(`foldl`[0,0,0]).m words.lines \ No newline at end of file