Think about Loose Coupling PerlMonks

### 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 ( #851128=note: print w/replies, xml ) Need Help??

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

Create A New User
Node Status?
node history
Node Type: note [id://851128]
help
Chatterbox?
 [Tanktalus]: SwaJime: wouldn't status & status < 13 be true if status was 0? [SwaJime]: I thought 0 was false, and false AND anything would be false ... [SwaJime]: unless & is higher precedence than < [SwaJime]: couldn't find bitwise in precedence list for sybase [SwaJime]: I bet that is why ... and that makes it to be I think terribly written code :-|

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (9)
As of 2017-08-22 18:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Who is your favorite scientist and why?

Results (338 votes). Check out past polls.

Notices?