My First JAPH

After fighting with this code for about 15 minutes i have finally comeup with this.

$#_=-1;$|++;for(\pos,\&_,\\$_){$_[++$#_]=chr(ord(substr$_,$[,$|)-2)};$
+_[++$#_]=substr\%_,$[,$|;print for@_;
[download]

I think still this code can be further optmised.

Any suggestions welcome.

Thank you.

--Murugesan--

Comment on My First JAPH Download Code

Replies are listed 'Best First'.
Re: My First JAPH by Anonymous Monk on Jul 31, 2004 at 08:04 UTC
fighting with this code for about 15 minutes Man! You must be exhausted! ;-) Why don't you take a few weeks' rest? Perhaps you'll have time to look at some obfu scripts that needed just a little longer to create. camel code How to (ab)use substr spiraling quine find-a-func Things are not what they seem like. 3-D Stereogram, Self replicating source. There can be only one! Bugs In My Code? Mandelbrot flythrough Camel Time Somersaulting camel Fun With Reserved Keywords Space Invaders It Came From the Crypt! hello world fishing japh Object Oriented? GGGraffiti Finite Automata Question Generator Just another Bach Hacker How to (ab)use map The Ultimate Game The Perl Diamond Just Another Larry The answer My 2 cents worth /o considered harmful PM Obfu Perl Monk's dream First JAPH - Spell perl in two hundred and eighty five thousand and seventy four easy steps Spinning World Balls!	[reply]
Re^2: My First JAPH by bageler (Hermit) on Aug 01, 2004 at 01:01 UTC
why don't you get a sack and post non-anonymously? I think anyone who posts an original JAPH deserves some credit. of course, a real JAPH should print out more than 4 chars rolleyes	[reply]