Re^2: Abusing sort()

Hmm, yeah, I'm seeing the same problem on perl 5.6.1; I had only tested this on 5.8.6. Apparently sort() works differently in 5.8.

This works on 5.6.1:

perl -e'$_=sprintf("%08b"x12,map hex,"194E8E91CC3A0097991C0350"=~/../g);print sort{(1+chop)*2-3}split"","Puht r arJtel\ncerae on,khs";'

Comment on Re^2: Abusing sort() Download Code

Replies are listed 'Best First'.
Re^3: Abusing sort() by ysth (Canon) on Jul 12, 2005 at 01:44 UTC
See http://perldoc.perl.org/perl58delta.html#Performance-Enhancements. I think prior to that perl used its own quicksort algoritm (and prior to that, it used the libc quicksort, which could segfault on some platforms if the compare routine returned inconsistent info).	[reply]