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

Pumping JAPH

by choroba (Abbot)
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.

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

Comment on Pumping JAPH
Download Code
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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (12)
As of 2014-09-18 12:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (113 votes), past polls