Re: New Golf

In article <[email protected]>,
	Andrew Savige <[email protected]> writes:
> --- Michael Wrenn wrote:
>> ... An extremely obvious 2 stroker ...
> 
> I've cast my eye over your and `/anick's solutions looking for
> any more "obvious 2 strokers". Alas, I couldn't find one in
> `/anick's masterwork, but I did find another Mr Magoo-esque
> 2 stroker in your 169.51, namely changing:
> 
>   qw(IV XL CD V L D IX XC CM X C M)
> 
> to:
> 
>   (IV,XL,CD,V,L,D,IX,XC,CM,X,C,M)
> #!perl -lp
> s!.!y$IVCXL91-I0$XLMCDXVIII$dfor$X[$_].=4x$&%1859^7!egfor+0..3999;@Y{@X}=0..@X;y/m/-/;s/\w+/+$Y{$&}/g;$_=$X[eval]
> 
> in only a few minutes. I had toyed with Util's approach during
> the game, but kept floggin' the same old dead horse. :-(
> For some reason, I find it difficult psychologically to let go
> of one approach and switch to a new one.
> 
> Can Util's approach be taken below 117? I wonder what is the lowest
> score possible without using symbolic references.
> 
The most obvious target is to get rid of the 0:
#!perl -pl
s!.!y$IVCXL91-I0$XLMCDXVIII$dfor$X[$_].=4x$&%1859^7!egfor!y/m/-/..3999;@Y{@X}=0..@X;s/\w+/+$Y{$&}/g;$_=$X[eval]

(115.54)