Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: How to (ab)use sort

by biohisham (Priest)
on Apr 22, 2012 at 16:33 UTC ( #966479=note: print w/ replies, xml ) Need Help??

in reply to How to (ab)use sort

bioslayer@bioslayer:~/Desktop/Development/test$ perl - use strict; use warnings;()= sort{index+0x47,&$a($b)}sub{print&{;pop}}, sort{sub J{$!++&1}[0]}sub{exec''},map{@$_} sort{sub _{[(pop)x((1<<$!-->>47)|1)]}!{()= sort{my$_=$a;$a=_(sub{$_})if!/0/}$a,$b,0}} sort J('rke%ca hlrPe rhetoan tus;J')=~/./g __END__ Just another Perl hacker0bioslayer@bioslayer:~/Desktop/Development/tes +t$
Works as advertised, printing an extra 0 at the trail.
##Platform## Perl 5, version 12, subversion 4 (v5.12.4) built for i686-linux-gnu-th +read-multi-64int

David R. Gergen said "We know that second terms have historically been marred by hubris and by scandal." and I am a two y.o. monk today :D, June,12th, 2011...

Comment on Re: How to (ab)use sort
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://966479]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (14)
As of 2014-07-10 21:57 GMT
Find Nodes?
    Voting Booth?

    When choosing user names for websites, I prefer to use:

    Results (217 votes), past polls