aoc2021/d7golf_takes_7_minutes.hs

main=interact$show.(<$>[\n->(n^2+2)`div`2,id]).(\i d->minimum[sum$map(d.abs.(x-))i|x<-[0..sum i]]).read.('[':).(++"]")