Day 7: Solition, that takes about 7 minutes, 119

2021-12-07 13:20:04 +01:00 · 2021-12-07 13:20:04 +01:00 · 582997dbb6
commit 582997dbb6
parent b91c813f69
1 changed files with 1 additions and 0 deletions
--- a/d7golf_takes_7_minutes.hs
+++ 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.('[':).(++"]")
				`@ -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.('[':).(++"]")