Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

(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

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

Replies are listed 'Best First'.
Re: (Ab)using fo(u)r...
by jdalbec (Deacon) on Feb 14, 2006 at 03:34 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://529976]
Approved by McDarren
Front-paged by grinder
[holli]: No, that's not true. I started it.
[holli]: I was company to my mother, bringing her to the therapy she has to take. There was another so called therapist outside smoking. We engaged in a talk with her and he turned out to be one of these lunatics telling people when they are sick it's their own
[holli]: fault for not thinking positively enough.
[LanX]: did he seriously hurt his fist at your nose in the end?
LanX .oO(positively thought)
[holli]: :) No. I might be small, but you don't want to be around me when I flip.
[LanX]: I can imagine ...
LanX hurts to be bitten between the legs ;-)

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (10)
As of 2017-12-13 18:01 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (373 votes). Check out past polls.