Day 2: 185

day2.hs

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