Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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

by eyepopslikeamosquito (Canon)
on Jul 24, 2010 at 07:13 UTC ( #851128=note: print w/ replies, xml ) Need Help??


in reply to Re: The golf course looks great, my swing feels good, I like my chances (Part I)
in thread The golf course looks great, my swing feels good, I like my chances (Part I)

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


Comment on Re^2: The golf course looks great, my swing feels good, I like my chances (Part I)
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (12)
As of 2015-07-07 13:20 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 (88 votes), past polls