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

Day 2: 182

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

2
day2.hs
View file

@ -3,7 +3,7 @@ b i|i>80=i-87|let=i-64
a%b=q$mod(a-b)3 a%b=q$mod(a-b)3
q 2=6 q 2=6
q i=3-3*i q i=3-3*i
o#p=1+(mod(o+p)3) o#p=1+mod(o+p)3
y[o,_,p]=v[o,0,o#p] y[o,_,p]=v[o,0,o#p]
v[x,_,z]=z+x%z v[x,_,z]=z+x%z
main=interact$show.((,).(sum.m v)<*>(sum.m y)).m(m(b.fromEnum)).lines main=interact$show.((,).(sum.m v)<*>(sum.m y)).m(m(b.fromEnum)).lines