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

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2017-02-21 03:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?






    Results (306 votes). Check out past polls.