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

Pumping JAPH

by choroba (Chancellor)
on May 13, 2013 at 15:03 UTC ( #1033304=obfuscated: print w/replies, xml ) Need Help??

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/;

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/

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1033304]
Approved by davido
Front-paged by davido
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2017-01-21 14:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you watch meteor showers?




    Results (184 votes). Check out past polls.