In article <003701c21c8_$3d_0_da0$0201a8c0@dsl>,
"Beno�t Chauvet" <[EMAIL PROTECTED]> writes:
> ----- Original Message -----
> From: "Ton Hospel" <[EMAIL PROTECTED]>
>> > Yes, but have you tried this ?
>> > -p ($_)=sort{abs$_-$a<=>abs$_-$b}<> (35)
>> >
>> Good, the 35 has fallen. I've seen fragments of the route to 32 already...
>
> This one maybe ?...
> -p ($_)=sort{$a-$b^$a+$b-2*$_}<>
>
Yup, that's it. I hadn't expected it to fall, because it's very tricky.
The result of the xor is a very big positive number that in the perl
guts gets used as a negative number...
