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

print for (1..9)

by Len (Friar)
on Mar 26, 2002 at 15:21 UTC ( #154408=obfuscated: print w/ replies, xml ) Need Help??

How to make simple things difficult:
#!/usr/bin/perl -w $_='`dNd7 id~kdmjd mjdj~edf CdWdWdWdW dWdWdWdWd WdWddZ{d; jd&ijd~l kdwDduadu adZNdPNd< OdZ}idYfd Dgd7id!k d~kmdwljd mlkddEd&kdwmdkCdjWdiad<Nd^kdcd^kdZCdZMdjZudkX dm1dwmfd&ld:hddZ9dP:dF;d<;ed_kdXidMkd:ud/%d|h /dv9dmmmdmmmdmmmdZ9dZ9dZ9dZ9dd&jid&jid~kkd~d~ dvmdwmfdwjjdm;dZNdPadPadkbdm;dmmidwhkd&mdEfdd Ofd1ld&jid~f1duWdkdk$dmmfdmmhdm;dlXdladladmNd w1d~mjd&jid:kdXddm jmdmjmdmjmdZLdZ9dP9 dF8d<8d2 8d`d`dVdL dLdBdBdBd dUd1id~jj dwmfdlDd kWdkWdv0 d~jjd%mdw hkdlDdkXd kXdkXdlDdhmmd~kid1idd:hd~jidwjidm1dkNdjbdjbdk XdlEdwmhd~mjd:%dZMdkWdl;dwjid~gmd&kdM';#dZ9dP foreach(/(\S)/g){$;.='1'if((/d/));$_=ord($_); /(.)(.)$/;($;.="\40"x$1).='0'x$2;}foreach(((( split(/11/,$;))))){++$i;s/1/\n/g;s/0/$i/g;#:) print("$_ \n\n")}$_ ='unpack "u",\'&"4 I!4$@*\''; s(\s)()xg ;print(( eval));s; Len#The#M an;#:)#;

Comment on print for (1..9)
Download Code
Re: print for (1..9)
by novas007 (Acolyte) on Mar 30, 2002 at 02:49 UTC
    Hah! nifty :)
Re: print for (1..9)
by ProgrammingAce (Sexton) on Mar 31, 2002 at 03:07 UTC
    I have to say, that I am impressed. Beyond that, I am at a loss for words...

            - Ace "Two programmers walk into a bar, the third ducks"

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://154408]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (10)
As of 2014-04-21 15:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (495 votes), past polls