Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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;}
+}

[download]

Cheers!

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
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 chilling in the Monastery: (4)
As of 2023-02-08 23:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (44 votes). Check out past polls.
    Notices?