Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Japh algebra

by ambrus (Abbot)
on Nov 24, 2003 at 13:52 UTC ( #309529=obfuscated: print w/ replies, xml ) Need Help??

Not obfuscated enough, it's still redable. Do not use -w.
for$x(1..26){my$r;$r=($x*$r+ord)%127 for"%E.g\cle(WW7=k\ct[bqI\abJy3.%\ctG"=~/./g;print chr$r}

Comment on Japh algebra
Download Code
Re: Japh algebra
by b-funk (Sexton) on Nov 25, 2003 at 16:07 UTC
    Try using lots of punctuation variables for short japhs, separate operators from their operands, use funny math to hide constants, take advantage of aliases and default arguments. I like the idea you had on this one, so here it is a little less clearly:
    map{$;=1?$?-$?:t;$;=($_*$;+ord$&)%(2**7-$|) while(qq]%E.g\cle(WW7=k\ct[bqI\abJy3.%\ctG] =~m>.>g);$..=chr$;}++$|..26;s++$.+iii;print
    Brandan L.
Re: Japh algebra
by ambrus (Abbot) on Oct 12, 2006 at 10:29 UTC

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2014-04-19 21:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (483 votes), past polls