P is for Practical 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?
 [jedikaiti]: Yup

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2017-06-27 16:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
How many monitors do you use while coding?

Results (611 votes). Check out past polls.