Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
No such thing as a small change
 
PerlMonks  

(Ab)using fo(u)r...

by chargrill (Parson)
on Feb 14, 2006 at 00:38 UTC ( #529976=obfuscated: print w/ replies, xml ) Need Help??

This probably isn't a heavily obfuscated as others of its ilk (There can be only one!, My 2 cents worth) , and totally wasn't the original direction I was heading with this... but I saw myself writing for loops inside of for loops, and I just couldn't help myself.

#!/usr/bin/perl $ four=44;$ fore=$four*$ fore ;for $ fore(1..$ #4 four){$ for ||($ \= pack 'c',$ fore) } $ fourteen =14; $ fjor =$ four-$ #4 fourteen ;$ f=1;$ or=2;$ Or=$ f+$or+ $ f+$ or; #4 $ foreteen= $fourteen- $ or;$ fOr= $ four+$four - 4 *2;$ a= $ fior = sub { return [ $ fjor+$four , --$ four,-$ or,$f,-$ fOr -4,$ fOr -$ foreteen-$ f -$ or]};$b= $ fore=sub { return[ --$ fourteen,$ f ,$ or *$ or + $ f,-$ #42 foreteen ,- $ f- $ or, $ fourteen]};$c=$fyor=sub{return[-$ fOr-$ or,++$four+4 ,($f+$Or)*($f+$or),$fourteen,-$Or,-$fOr+4]};$d=$foer =sub{return[$ fOr-4-4,-$ Or-$ f,$ or,$ or+$ Or,-$Or, $fourteen]};for(a..d){if(ref($$_)=~m$AR$){for($$_){$ for=$fourten *$fjor;$fore +=$fjor;for( @$_){$for.=$ fore;$foor+= $ _ ;$ for.= pack 'a' , $ foor}}}else{ for($$_){for (@{&{$_}}){$ foor+=$ _; $ for.=pack'c' ,$ foor} }}} print $ for


--chargrill
$/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ } + sig map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu +" );

Comment on (Ab)using fo(u)r...
Select or Download Code
Re: (Ab)using fo(u)r...
by jdalbec (Deacon) on Feb 14, 2006 at 03:34 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://529976]
Approved by McDarren
Front-paged by grinder
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (11)
As of 2014-04-21 12:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (495 votes), past polls