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