Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
We don't bite newbies here... much
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (8)
As of 2014-04-19 01:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (475 votes), past polls