Your skill will accomplishwhat the force of many cannot PerlMonks

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

by chargrill (Parson)
 on Feb 14, 2006 at 00:38 UTC 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
+" );

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

Create A New User
Node Status?
node history
Node Type: obfuscated [id://529976]
Approved by McDarren
Front-paged by grinder
help
Chatterbox?
 [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
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
What programming language do you hate the most?

Results (373 votes). Check out past polls.

Notices?