<>;@_=`tr ' ' '\\n'|sort -nr`;$t=$_[@_/2];$x+=abs$_-$t for@_;print$x