Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

My First Japh

by Andrew_Levenson (Hermit)
on Dec 04, 2006 at 22:54 UTC ( [id://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!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2024-03-29 15:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found