ll@N,@A[N],l=*A,r=l;rep[A](a,N){if(a<l)swap(a,l);if(a>r)swap(a,r);while(l<a<r){if(2a<l+r)(a,l)+=(r-a)/(a-l)*(a-l);else (a,r)-=(a-l)/(r-a)*(r-a);}wt(r-l);}