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