From 3d22b6cbd0f28e0a0ee18ba184a9e5a4dba97e8c Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Sat, 3 Dec 2022 00:00:38 +0100
Subject: [PATCH] Day 2: 185

---
 day2.hs | 21 +++++++--------------
 1 file changed, 7 insertions(+), 14 deletions(-)

diff --git a/day2.hs b/day2.hs
index 3ec05f2..236d459 100644
--- a/day2.hs
+++ b/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