christofsteel/aoc2021
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Day 2: 229

Browse source
This commit is contained in:
Christoph Stahl 2021-12-04 01:07:33 +01:00
parent e55fee94b1
commit 41711114e9
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
d2golf.hs
View file

@ -1,4 +1,5 @@
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]
(%)d|"f"<d=(-)|let=(+)
(%)"u"=(-)
(%)_=(+)
main=interact$show.(<$>[p,q]).((\(a:b:_)->a*b).).flip(`foldl`[0,0,0]).map(fmap read.splitAt 1.map head.words).lines