day2: 255

2022-12-02 23:35:02 +01:00 · 2022-12-02 23:35:02 +01:00 · d9a20b1012
commit d9a20b1012
parent 566465da30
3 changed files with 2519 additions and 0 deletions
--- a/day2.hs
+++ b/day2.hs
@ -0,0 +1,16 @@
+a 89=66
+a 88=65
+a 90=67
+a i=i
+p i=i-64
+a%b=q$mod(a-b)3
+q 2=6
+q 0=3
+q 1=0
+v(x:_:z:[])=z+x%z
+y(1:_:3:[])=8
+y(1:_:i:[])=2+i
+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
--- a/2500
+++ b/2500
--- a/3
+++ b/3
@ -0,0 +1,3 @@
+A Y
+B X
+C Z