Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
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 perusing the Monastery: (5)
As of 2015-07-06 05:15 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 (70 votes), past polls