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;@[EMAIL
> PROTECTED]@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;@[EMAIL
PROTECTED]@X;s/\w+/+$Y{$&}/g;$_=$X[eval]
(115.54)
