Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Pumping JAPH

by choroba (Archbishop)
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?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1033304]
Approved by davido
Front-paged by davido
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2020-08-09 11:39 GMT
Find Nodes?
    Voting Booth?
    Which rocket would you take to Mars?

    Results (54 votes). Check out past polls.