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.('[':).(++"]")