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

Day 2: 185

Browse source
This commit is contained in:
Christoph Stahl 2022-12-03 00:00:38 +01:00
parent d9a20b1012
commit 3d22b6cbd0
1 changed files with 7 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
day2.hs
View file

@ -1,16 +1,9 @@
a 89=66 m=map
a 88=65 b i|i>80=i-87|let=i-64
a 90=67
a i=i
p i=i-64
a%b=q$mod(a-b)3 a%b=q$mod(a-b)3
q 2=6 q 2=6
q 0=3 q i=3-3*i
q 1=0 o#p=1+(mod(o+p)3)
v(x:_:z:[])=z+x%z y[o,_,p]=v[o,0,o#p]
y(1:_:3:[])=8 v[x,_,z]=z+x%z
y(1:_:i:[])=2+i main=interact$show.((,).(sum.m v)<*>(sum.m y)).m(m(b.fromEnum)).lines
y(2:_:i:[])=1+((i-1)*4)
y(3:_:1:[])=2
y(3:_:i:[])=4+i
main=interact$show.((,).(sum.map v)<*>(sum.map y)).map(map(p.a.fromEnum)).lines