Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Order of execution

by iamcal (Friar)
on Mar 31, 2003 at 11:35 UTC ( [id://246891]=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl -w use strict; $\=$1.chr(10)if($a=~/(J.*?)\\/x);BEGIN{my$c='q!';my$m='p!';my$p=q!;my$ +e=sub{ $_=reverse(shift);s((((.))))["sprintf('%x',ord('$1'))"]gexe;return uc$ +_;};y/ a-z/z-a/xd;@a=map{grep{/^1/&&$b}${$_}}@_;map{2^$_}@_;$$=sub(/j,a|p.h/; +(34,1, 43,'\x10');return"Just another Perl hacker\n");map{1}!;$main::a=$p;}pr +int"";
some cheap tricks, and map in a void context :)

Replies are listed 'Best First'.
Re: Order of execution
by nothingmuch (Priest) on Mar 31, 2003 at 12:11 UTC
    map isn't really used in void context, now is it?

    zz zZ Z Z #!perl
      is it cheating to throw people off with your explanation? ;)


Re: Order of execution
by jonadab (Parson) on Apr 03, 2003 at 18:22 UTC

    Wow, it's... almost 100% seafood. Baked herring, methinks, of the red variety.

    for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc' .'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$ p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}
Re: Order of execution (++)
by Aristotle (Chancellor) on Apr 18, 2003 at 11:48 UTC
    Hehe, pretty funny, if (at heart) simple. It took me a while to realize what's going on. Nice job :)

    Makeshifts last the longest.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://246891]
Approved by nothingmuch
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2024-06-17 21:17 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.