Problems? Is your data what you think it is? PerlMonks

### Countdown....

by UnderMine (Friar)
 on Nov 21, 2002 at 22:32 UTC Need Help??

I was bored this evening so...
```\$/='mkd@h   lqvj}"    |[mhrqj@  WW   RB  ?=H
;]B     y[I  LO]   opq   rc@ PB   yS  MLQ
}By    SS]    hlq  vj@   twq vP   GG  Rsa
hPw    lbPB|=B?;Q  ^By_B|=B  ?;\eplP  ByQ
RH VVB    E|Q    QVD  :lD       ]m   rc
ch@I     ]{{   ';\$n  ='4       km   j@  !vw

jpcl@(clr@0aeucl';\$r=sub{\$z=shift;\$b[\$_]=vec
(\$z,\$_,1) for 0..7;my \$v.=\$b[0];\$v.=\$b[\$_+1]
.\$b[\$_] for (1,3,5);\$v.=\$b[7];return pack
'b*',\$v;};\$n=~y/"\n / /d;\$e=sub{eval
\$_[0];\$";};\$t=sub{join'',map(
&\$r(\$_),(split //,\$_[0]
));};\$"=&\$t(\$n);\$|=
1;\$/=~y/"\n / /d;
&print(&\$e(
&\$t(\$/)
));

Hope you like it
UnderMine

Replies are listed 'Best First'.
Re: Countdown....
by Mr. Muskrat (Canon) on Nov 22, 2002 at 15:24 UTC

++ for the wow factor.

perl -MO=Deparse countdown.pl yields:

```\$/ = qq(mkd\@h   lqvj}"    |[mhrqj\@  WW   RB  ?=H\n   ;]B     y[I  LO
+]   opq   rc\@ PB   yS  MLQ\n   }By    SS]    hlq  vj\@   twq vP   GG
+  Rsa\n   hPw    lbPB|=B?;Q  ^By_B|=B  ?;\\eplP  ByQ\nRH VVB    E|Q
+  QVD  :lD       ]m   rc  \n ch\@I     ]{{   );
\$n = "4       km   j\@  !vw\n\njpcl\@(clr\@0aeucl";
\$r = sub {
\$z = shift @_;
foreach \$_ (0 .. 7) {
\$b[\$_] = vec(\$z, \$_, 1);
}
my \$v .= \$b[0];
foreach \$_ (1, 3, 5) {
\$v .= \$b[\$_ + 1] . \$b[\$_];
}
\$v .= \$b[7];
return pack('b*', \$v);
}
;
\$n =~ tr/"\n / /d;
\$e = sub {
eval \$_[0];
\$";
}
;
\$t = sub {
join '', map(&\$r(\$_), split(//, \$_[0], 0));
}
;
\$" = &\$t(\$n);
\$| = 1;
\$/ =~ tr/"\n / /d;
&print(&\$e(&\$t(\$/)));

Well done!

Re: Countdown....
by Sihal (Pilgrim) on Nov 22, 2002 at 19:06 UTC
yup I like it too. Question: how do you get your ideas ? :o)
Re: Countdown.... de-obfuscated
by Mr. Muskrat (Canon) on Nov 25, 2002 at 20:39 UTC

Okay, I think I have fully de-obfuscated it.
I was impressed before but now... I am at a loss for words.

verry cool! Thanks for the entertainment. -spiderman
Re: Countdown....
by dingus (Friar) on Nov 22, 2002 at 08:25 UTC
Excellent!

Dingus

Enter any 47-digit prime number to continue.
Re: Countdown....
by Anonymous Monk on Nov 22, 2002 at 23:09 UTC
Nice!! Definitely one of my favorites.. very creative
Re: Countdown....
by MisterP (Initiate) on Nov 25, 2002 at 09:28 UTC
That looks cool! I wish I could translate it. :) I am a noob.

Create A New User
Node Status?
node history
Node Type: obfuscated [id://214945]
Approved by Mr. Muskrat
Front-paged by broquaint
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (11)
As of 2018-03-18 14:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
When I think of a mole I think of:

Results (230 votes). Check out past polls.

Notices?