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