From b91c813f6941f362a2d86ff44bf33295737eb307 Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@uni-dortmund.de>
Date: Tue, 7 Dec 2021 12:47:10 +0100
Subject: [PATCH] Day 7: 123

---
 d6golf.hs | 2 +-
 d7golf.hs | 4 +---
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/d6golf.hs b/d6golf.hs
index 33f0c8f..61928b4 100644
--- a/d6golf.hs
+++ b/d6golf.hs
@@ -1,3 +1,3 @@
-j=(1<$[0..8])++zipWith(+)j(drop 2 j)
 d x n=sum[j!!(8-i+n)|i<-x]
+j=(1<$[0..8])++zipWith(+)j(drop 2 j)
 main=interact$show.(<$>[256,80]).d.read.('[':).(++"]")
diff --git a/d7golf.hs b/d7golf.hs
index 0bc191e..7e9b268 100644
--- a/d7golf.hs
+++ b/d7golf.hs
@@ -1,3 +1 @@
-m d i=minimum[sum$map(d.abs.(x-))i|x<-[0..maximum i]]
-g n=(n^2+n)`div`2
-main=interact$show.((,).m g<*>m id).read.('[':).(++"]")
+main=interact$show.(<$>[\n->(n^2+2)`div`2,id]).(\i d->minimum[sum$map(d.abs.(x-))i|x<-[0..maximum i]]).read.('[':).(++"]")