Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Fun with words (Golf?)

by Roger (Parson)
on Nov 09, 2005 at 08:27 UTC ( #507007=note: print w/ replies, xml ) Need Help??

in reply to Fun with words (Golf?)

Here's my first entry...

local $"; while (<DATA>) { s/(\w{4,})/@l=split'',$1;@m=@l[1..$#l-1];@r=map{splice@m,rand @m,1 +}@m;"$l[0]@r$l[-1]"/ge; print; } __DATA__ Down that path lies madness. On the other hand, the road to hell is pa +ved with melting snowballs. Although the Perl Slogan is There's More Than One Way to Do It, I hesi +tate to make 10 ways to do something. And don't tell me there isn't one bit of difference between null and s +pace, because that's exactly how much difference there is. Randal said it would be tough to do in sed. He didn't say he didn't un +derstand sed. Randal understands sed quite well. Which is why he uses + Perl. As usual, I'm overstating the case to knock a few neurons loose, but t +he truth is usually somewhere in the muddle, uh, middle. Of course, I reserve the right to make wholly stupid changes to Perl i +f I think they improve the language.

Comment on Re: Fun with words (Golf?)
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://507007]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (8)
As of 2015-12-01 03:45 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (792 votes), past polls