$N=<>; @s=(0,map$s+=$_,@Y=sort{$a-$b}glob<>); $%=1e18; for$i(0..$N){ $j= 0+$i>>1; $k=$i+$N>>1; $t=$s[0]-$s[$j]-$s[$i-$j]+$s[$i]+$s[$i]-$s[$k]-$s[$i+$N-$k]+$s[$N]; $%=$t if$t<$% } print$Y[0]==$Y[-1]|$%,$/