Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Countdown....

by UnderMine (Friar)
on Nov 21, 2002 at 22:32 UTC ( #214945=obfuscated: print w/ replies, xml ) 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

Comment on Countdown....
Download Code
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 Mr. Muskrat (Abbot) 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....
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.
Re: Countdown.... de-obfuscated
by Mr. Muskrat (Abbot) 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

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (15)
As of 2014-07-30 12:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (231 votes), past polls