Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Say this ten times fast.

by zdog (Priest)
on Jun 07, 2001 at 23:07 UTC ( #86691=obfuscated: print w/ replies, xml ) Need Help??

I got bored in the middle of a C project I was working on and began fiddling with Perl. I started working on a one-liner japh, but then I decided to turn it into a game and try to use as many functions as I can in one line ... and here's the final product (your count on the number of functions may vary based on your definition of a function):

exit unless eval 'do {print ucfirst scalar reverse qq|\n|,grep m/\w/,split "",join chr ((exp log abs int ord "P")+1),uc q/h/,sort map $_.lc "J",lcfirst "A" or die ":-("}';

Zenon Zabinski | zdog | zdog7@hotmail.com

Comment on Say this ten times fast.
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (8)
As of 2014-11-28 00:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (191 votes), past polls