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

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"

Replies are listed 'Best First'.
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?

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2016-08-28 01:31 GMT
Find Nodes?
    Voting Booth?
    The best thing I ever won in a lottery was:

    Results (390 votes). Check out past polls.