Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
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 making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2014-12-21 23:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (109 votes), past polls