Update to take into account both sorting algorithms:
perl -e'$_=sprintf("%08b"x12,map hex,($]<5.008?"194E8E91CC3A0097991C0350":"5EE62C8938D2813268509E9B")=~/../g);print sort{(1+chop)*2-3}split"","Puht r arJtel\ncerae on,khs";'In reply to Abusing sort() by phroggy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |