Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

My First Japh

by Andrew_Levenson (Hermit)
on Dec 04, 2006 at 22:54 UTC ( #587756=obfuscated: print w/ replies, xml ) Need Help??

My first ever attempt at a Japh, so it probably isn't as nifty as most of you could come up with, but I spent a while on it and as silly as it is, i'm somewhat proud. Maybe it'll end up as my sig?

$\="\t";$u||=$^T!~/\d/?$^O:$^T;$w=$u!~/\D/?0:1;x("4A","16","07","86"); sub x{while(@_){$u**=$^T!=cos($w)?$w:$#_;print map{ $w<$u?chr(hex shift):chr(hex reverse(shift))}$_;$w+=length%2!=1?-1:1;} +}

Cheers!

Comment on My First Japh
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2014-08-29 23:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (289 votes), past polls