Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re^5: Pascal-Sierpinski for golfers

by hbm (Hermit)
on Dec 02, 2011 at 17:15 UTC ( [id://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

[download]

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}'

[download]

A couple more tricks for me!

Replies are listed 'Best First'.
Re^6: Pascal-Sierpinski for golfers
by eyepopslikeamosquito (Archbishop) 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. :)

[reply]

In Section Cool Uses for Perl

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://941389]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2024-04-24 12:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found