There's more than one way to do things PerlMonks

### Re: The golf course looks great, my swing feels good, I like my chances (Part I)

by robin (Chaplain)
 on Dec 20, 2009 at 22:48 UTC ( #813652=note: print w/replies, xml ) Need Help??

In case you're curious as to what my early-lead 60-stroke solution looked like, here it is:

y/DCLXVIM /4 DCLX9/,\$\=s/( )?\d/9x(\$&+!\$1)/egfor(<>)x4;print

This is quite a different algorithm from yours, I think.

I enjoyed the few days I was thinking about this challenge, but I don't have the tenacity to keep whittling away month after month like you serious golfers.

• Comment on Re: The golf course looks great, my swing feels good, I like my chances (Part I)

Replies are listed 'Best First'.
Re^2: The golf course looks great, my swing feels good, I like my chances (Part I)
by eyepopslikeamosquito (Chancellor) on Jul 24, 2010 at 07:13 UTC

I just noticed a very similar Roman numeral golf recently concluded at golf.shinh.org. Adjusting ySas' winning Perl solution to that game for this one produces this 58 stroker:

```s/(M)|D/4x@-x5/eg,s/C4//,\$\=y/LXVIC4/DCLXM/for(<>)x3;print
which has a similar form to robin's early-lead 60 stroker above -- though it uses a different algorithm. Both these solutions are very beautiful, very Perlish, and quite astonishing (at least to me).

I especially enjoyed ySas' ingenious use of @- above. I've never seen @- used like that in golf before and am tempted to give it a name, "ySas' device". By way of explanation, note that adding parentheses around (M) above adds one more element to the @- array when the (parenthesized) M matches. That is, the number of items in @- is used to differentiate between a matching M (two items in @-) and a matching D (one item in @-); this fits like a glove here because one and two happen to be the required multipliers.

Update: By applying ideas from ySas' solution, we can reduce Robin's original 60-stroker:

```y/DCLXVIM /4 DCLX9/,\$\=s/( )?\d/9x(\$&+!\$1)/egfor(<>)x4;print
to 58:
```s/M2//,y/DCLXVIM/1MDCLX2/,\$\=s/\d/2x\$&x5/egfor(<>)x4;print

Re^2: The golf course looks great, my swing feels good, I like my chances (Part I)
by eyepopslikeamosquito (Chancellor) on Dec 21, 2009 at 19:38 UTC

Dazzling. Delightful. Intricate. That is, by far, the most beautiful of the many Roman to Decimal solutions presented in this node IMHO. Paraphrasing Abigail:

Your golf solution is like exploring a large medieval castle, surrounded by a dark, mysterious forest, with something new and unexpected around each corner. There are dragons to be conquered, maidens to be rescued, and holy grails to be quested for. Lots of fun. By comparison, my golf solutions look like a Louis-XVI castle and garden to me. Straight, symmetric, and bright. There are wigs to be powdered, minuets to be danced, all quite boring.

Create A New User
Node Status?
node history
Node Type: note [id://813652]
help
Chatterbox?
 [choroba]: ovedpo15 Hard to tell without context. You probalby used \$dir outside of its scope, which is the body of the "unless". [choroba]: if you use unless as a statement modifier, you can't use the variable declared in the modifier in the statement.

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2018-04-22 19:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My travels bear the most uncanny semblance to ...

Results (83 votes). Check out past polls.

Notices?