Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Dropfu

by robartes (Priest)
on Nov 26, 2002 at 20:22 UTC ( #215923=obfuscated: print w/ replies, xml ) Need Help??

After the parable, the obfuscation. You might want to read this to follow the story :).
#!/usr/local/bin/perl -w
$_="DO30QO00o*40DO30QO00o*40D*20QO20oDOO00DO*00DO40oD10QO10QO*10QO*00D*20Q
O10Q20D*20Q*30Q*00QO*10QO*10Q*30Q10D*20Q00QO40QO10QO20Q*30Q10QO*10QO*00D*2
0Q20oD      OO20Q*30Q*30Q*00QO00Q30D*20QO10QO00D*20oDOO20D*20XQO20oDOO20Q*
00QO4        0D*20QO10Q20D*20Q*30Q10oDO      O20QO00Q*00QO0     0Q30D*20QO
*10QO        10QO10QO*10Q40QO20Q*00oDO        O40Q*20QO*00     DOO10DOO10D
OO10D        O40DOO10D*40oDO*20QO00D*4        0DO*10o*40D     *20DO30QO*40
o*40DO      30QO00o*40DO30QO00o*40D*20        XQ*10o*30Q     20QO10QO40DO*
00DO10Q*00oO10DOO30o*40DO10Q*00oO00o20D      OO40o*40DO     10Q*00DO*30DO*
30DO*10QOO30D*20QO2      0oDOO00DO*00D*40oDO*20DOO30o2     0DOO30D*40QOO00
DO10Q*00DOO10D*40Q        O10D*40DO*10o*40DO30QO*40o*     40DO00DO00XQD00Q
20QO10QO40DO*00DO1        0Q*00oO10o40DOO30o*40DO10Q     *00oO20DOO00DOO40
o*40DO10Q*00DOO00D        OO00DO*10QOO30D*20QO20oDO     O00DO*00D*40oDO*20
DOO30o20DOO30D*40QO      O00DO10Q*0      0DOO10D*4     0QO10D*40DO*10o*40D
O30QO*40o*40DO00DO00XQD00D*20QO20Q        O40Q*00     QO00QO*10D*20D*40oDO
*20QO00D*40o*40D*20DO10QO*00oO10o*        20o*40     QO*40Q40Q*00Q*30Q10DO
*00D*20DO10QO*00DO*10QOO30D*20QO20        oDOO0     0DO*00D*20DO*00QO40oDO
O20QO00Q00DO*00DOO40DOO30DOO30DO*10      oO00o     30XoO30DO40QO10DO40o*30
D*20DO40D*20DO40DO*10DO*10D*20Q20QO10QO40D*20     DO*00DOO30DOO10DOO10o00o
*20DO*10o*40D*20QO20oDOO00DO*00D*40D*20D*40Q     OO00D*20DO10QO*00DOO10D*4
0DOO20D*40DO      O10D*40D*20D*40QOO00DO*00     o00DO*20XDO*00o*20DOO00DO1
0QO*00DO*10        DO*10DOO10D*40D*20oDO*2     0oDO*20D*40DO*10o*40DO10QO*
00DOO00DOO0        0o*40D*20QO20DO*00DO*0     0QO40oDOO20QO00Q00DO*00DOO40
DOO30DOO30D        O*10oO00o30oO30DO40QO     10DO40o*30DO40D*20DO40DO*10D*
20DO*10DO00X      Q20QO10QO40D*20DO*00D     OO30DOO10DOO10o00o*20DO*10o*40
D*20DO30QO00o*40D*20QD00DO30QO00o*40QO     20DO*00D*40oOO00oDOO20Q*30Q*30Q
*00QO00Q30D*20QO10QO00      D*20QO*10     Q40Q10D*20Q*30Q10Q20QO*10o*30D*4
0DO00DO00XDOO10D*40D*        20D*40Q     OO00DOO40o*10D*20DOO10D*40oOO30DO
O20oD40D*40DOO10D*40D        *20D*4     0QOO00DOO40o20D*20DOO10D*40oOO00oD
OO20Q*30Q*30Q*00QO00Q        30D*2     0QO10QO00D*20QO*10Q40Q10D*20QO40Q*0
0Q30Q40QO*10o*30D*40DO      *10Xo     *40DO30QO00o*40QO20DO*00D*40D*20D*20
oOO30QO00QO20QO*20QO*10o*30D*20o     DO*20DO10DOO20D*40D*20DOO10D*40D*20D*
40QOO00o20o20D*20DOO10D*40D*20D     *20oD40QO*20QO*10QO20QO*20QO*10o*30D*2
0oDO*20DO10oDO*20oDO*20D*40DO*     10Xo*40DO30QO00o*40DO30QO00o*40QO*00QO*
20oD                                                                  OO30
D*20  The falling droplets: a tale of daring, toothpics and some I/O  QO*4
0QOO                                                                  30DO
10Q30oO10DOO30o*40Q40o*30D*20DO10Q30oO20o40DOO30DOO30DOO30oO30Q30QO10QO*10
QO10D*20Q20o*30DO*00DO10Q30DO*30DO*30DO*40Q30QO10QO*10QO10XQ40DO*10o*40D*2
0Q20o*30QD00D*20QO*00QO*20oDOO30D*20QO20D*20QOO30QO20QO40Q*00QO00QO*10D*20
QO*00Q40Q*00Q20QO*10QD00D*20QO*00QO*20oDOO30D*20QO00QOO30QO20DO*00D*40oDO*
20QO00D*40DO*10QD00D*20QO*00QO*20oDOO30XD*20D*20D*20D*20D*20D*20D*20D*20D*
20D*20D*20D*20D*20D*20D*20D*20QO20oDOO00QOO30QO20D*20QO*00Q40Q*00Q20QO*10Q
D00";s{\s|T.*/O}()g;s(X){\n}g;while (s/(?=[QDOo*])(Q*)(o*)(D*)(O*)(\**)(\d
)0/chr(l($1)*100+l($2)*50+l($3)*25+l($4)*10+l($5)*5+$6)."XxX"/ex){};s{XxX}
                 {}g;eval;sub l{return length shift}
Sorry about the <pre> tags, but it's only 3 characters and I had no intention of reformatting the blasted thing (yet again) :). For those wishing to download this, the code is on my scratchpad, with the correct tags.

CU
Robartes- who's wondering whether "Falling droplet: The Poem" is next :)

Update: added link to scratchpad with code. Not that that helps much :(

Comment on Dropfu

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2015-01-25 15:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My top resolution in 2015 is:

















    Results (183 votes), past polls