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

Japh algebra revisited

by ambrus (Abbot)
on Oct 29, 2006 at 22:06 UTC ( #581159=obfuscated: print w/ replies, xml ) Need Help??

eval for'for$=(2..27){$*=0;$*=($**$=+ord)%127,for/./gs;print+chr$*}'." #ig\\tq\24^-/v\c^l,\23\$%\3\ta2\tk\b\c\)\x18 -- ambrus"

Comment on Japh algebra revisited
Download Code
Re: Japh algebra revisited
by ambrus (Abbot) on Dec 24, 2007 at 21:31 UTC

    The original code above gives an unnecessary default warning under perl 5.10.0. Here is a variant of the code, which should work correctly both under 5.10.0 and earlier perls.

    eval for"for\$^(2..27){\$==0;\$==(\$=*\$^+ord)%127,for/./gs;print+chr\ +$=} #P*h!9= Nn[\c\9\0*.:\eUt\17%j{dY\31 -- ambrus"

    Update: I forgot to link to my previous japh that this one has revisited Japh algebra.

    Update 2010-08-30: Notice how my name in this one authenticates my authorship: it's not possible to change the name without understanding how the code works.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (12)
As of 2014-11-28 14:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (197 votes), past polls