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

Re^5: Pascal-Sierpinski for golfers

by hbm (Hermit)
on Dec 02, 2011 at 17:15 UTC ( #941389=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Pascal-Sierpinski for golfers
in thread Pascal-Sierpinski for golfers

Doh, I flubbed that ($/ vs. $\). I so often print$/,/expr/?this:that, I confused myself.

And darn you - I had already read your lengthy linked topics, and perhaps all of their references, but I find them irresistable! This time through, I most enjoyed this gem:

s///ge>>9?print:do$0

The :do$0 is one *sick* loop. And the return value from s/// idea gave me the following "for 1 to 15" method:

perl -le'$_=1;{print,s/(\d+) ?/+$1 $1/g,s/\S+/$&/eeg>16||redo}'

A couple more tricks for me!


Comment on Re^5: Pascal-Sierpinski for golfers
Select or Download Code
Re^6: Pascal-Sierpinski for golfers
by eyepopslikeamosquito (Canon) on Dec 03, 2011 at 12:45 UTC

    Yes, I too find the "do$0" loop hilarious. A great write-up of its use in the 2002 Kolakoski game by good ol' Rick Klement can be found here and also in Mtv's book of golf (page 105). I believe Ton Hospel was the first person to use the eccentric "do$0" loop in a golf competition. And thanks for the "redo" tip; I'd forgotten about redo after all these years. :)

    Update: Just noticed another Rick Klement gem where he concludes with: Lesson to be learned: try something before you say "that can't work" ... which looks like an independent invention of Eugene van der Pijll's famous golfing aphorism: Can't possibly work, let's try it anyway. :)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2015-07-05 06:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls