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

Day 2: 236

Browse source
This commit is contained in:
Christoph Stahl 2021-12-02 16:21:12 +01:00
parent 8984d1060c
commit 8f26423a1a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
d2golf.hs
View file

@ -1,3 +1,3 @@
q[h,f](d,n)|"u"<-d=[h-n,f]|"d"<-d=[h+n,f]|let=[h,f+n] q[h,f](d,n)|"f"<d=[h-n,f]|"f">d=[h+n,f]|let=[h,f+n]
p[h,f,a](d,n)|"u"<-d=[h,f,a-n]|"d"<-d=[h,f,a+n]|let=[h+n,f+n*a,a] p[h,f,a](d,n)|"f"<d=[h,f,a-n]|"f">d=[h,f,a+n]|let=[h+n,f+n*a,a]
main=interact$show.(\a->product.($a)<$>[init.foldl p[0,0,0],foldl q[0,0]]).map(fmap read.splitAt 1.map head.words).lines main=interact$show.(\a->product.($a)<$>[init.foldl p[0,0,0],foldl q[0,0]]).map(fmap read.splitAt 1.map head.words).lines