My first JAPH


Clear questions and runnable code get the best and fastest answer
	PerlMonks

My first JAPH

by smeezekitty (Novice)

on Sep 21, 2012 at 05:36 UTC ( #994808=obfuscated: print w/ replies, xml )

Need Help??

I don't know if something like this has been done before but:

no warnings;@N=(0..9,'a'..'z');%N=map{$N[$_]=>$_}0..$#N;sub esabot{
$b=6*6;$n=shift;$R="";while($n>0){$R=$N[$n%$b].$R;$n=int($n/$b);}retur
+n$R;}
$SWNFZVDCVL=0xE22AD;$BVWEIQUHMO=0x566D77163;$NSANMOBGBP=0x121701;$GSPB
+PGWHWT=0x3E4E2053;
$TXHU=esabot($SWNFZVDCVL);$TXHU=~s/j/J/g;$XZFG=esabot($NSANMOBGBP);$XZ
+FG=~s/p/P/g;
print$TXHU.' '.esabot($BVWEIQUHMO).' '.$XZFG.' '.esabot($GSPBPGWHWT)."
+,";
[download]

Comment on My first JAPH Download Code
Re: My first JAPH by choroba (Prior) on Sep 21, 2012 at 08:10 UTC
There is a `sub` missing before the first mention of `esabot`. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]
Re^2: My first JAPH by smeezekitty (Novice) on Sep 21, 2012 at 22:51 UTC
Thanks for noticing. I had it working before so that must have gotten messed up when pasting. Fixed now.	[reply]

Back to Obfuscated Code

Node Status^?

node history
Node Type: obfuscated [id://994808]
Approved by davido
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others musing on the Monastery: (10)

As of 2013-05-18 23:52 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

The best material for plates (tableware) is:

Results (396 votes), past polls