Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
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
Replies are listed 'Best First'.
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.... 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
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.

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 taking refuge in the Monastery: (7)
As of 2015-07-30 17:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (273 votes), past polls