Perl: the Markov chain saw PerlMonks

### Re: Pumping JAPH

by Grimy (Pilgrim)
 on May 15, 2013 at 11:35 UTC ( #1033668=note: print w/replies, xml ) Need Help??

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/

Create A New User
Node Status?
node history
Node Type: note [id://1033668]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2017-02-19 16:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Before electricity was invented, what was the Electric Eel called?

Results (292 votes). Check out past polls.