$s+=$_/@@for<>.<>,@@=sort{$a-$b}<>;$-=$s-($-=$s-$@[@@/2]);$\+=abs$_-$-for@@;print