>>791(補足)
100万回のシミュレーションで確認

> y=replicate(1e6,sum(abs(sample(10)-(1:10))))
> summary(y)
Min. 1st Qu. Median Mean 3rd Qu. Max.
2 28 34 33 38 50