9 lines
182 B
Haskell
9 lines
182 B
Haskell
m=map
|
|
b i|i>80=i-87|let=i-64
|
|
a%b=q$mod(a-b)3
|
|
q 2=6
|
|
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
|