diff --git a/d7golf.hs b/d7golf.hs
new file mode 100644
index 0000000..0bc191e
--- /dev/null
+++ b/d7golf.hs
@@ -0,0 +1,3 @@
+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.('[':).(++"]")