This is PerlMonks "Mobile"

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

My first JAPH. Works under strict and warnings, too. 
$|--;for($/=1/10;$/<=1/2;$/+=50e-7){$\=qq/J,\r/;
substr$\,$/*length$\,$/-$/,$_,for split/(.{2})/,
q/ursetk caanho tlhreerP /;print'';}warn qq/\n/;

[download]

Update: Retitled.

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re: Pumping JAPH
by Grimy (Pilgrim) on May 15, 2013 at 11:35 UTC

    This reminds me of something I did a while back. Of course, this approach is much more elegant. The fact that it is entirely determinist is kinda impressive.

    I think that the overabundance of / and \ in this code creates a nice visual feeling. There are several ways to add to this: y\\\c instead of length, 1/2e5 instead of 50e-7…

    Here's a slightly modified version. I also eliminated the C-style for, because I really don't like them.

    $/=$|--/10;$\=qq/J,\r/,print!map{substr$\,$/*$\
=~y\\\c,!\//,$_}split/(.{2})/,q/ursetk caanho /
.q\tlhreerP \until($/+=1/2e5)>7/2/7;warn qq/\n/

    [download]
[reply]
[d/l]
[select]

Back to Obfuscated Code