From 582997dbb64fe92d14eb61f435b4169ecc5f8568 Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@uni-dortmund.de>
Date: Tue, 7 Dec 2021 13:20:04 +0100
Subject: [PATCH] Day 7: Solition, that takes about 7 minutes, 119

---
 d7golf_takes_7_minutes.hs | 1 +
 1 file changed, 1 insertion(+)
 create mode 100644 d7golf_takes_7_minutes.hs

diff --git a/d7golf_takes_7_minutes.hs b/d7golf_takes_7_minutes.hs
new file mode 100644
index 0000000..6f92bbe
--- /dev/null
+++ b/d7golf_takes_7_minutes.hs
@@ -0,0 +1 @@
+main=interact$show.(<$>[\n->(n^2+2)`div`2,id]).(\i d->minimum[sum$map(d.abs.(x-))i|x<-[0..sum i]]).read.('[':).(++"]")