3 lines
128 B
Haskell
3 lines
128 B
Haskell
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.('[':).(++"]")
|