Front page | perl.golf |
Postings from January 2007
Re: New Golf
Thread Previous
|
Thread Next
From:
perl-golf
Date:
January 14, 2007 07:00
Subject:
Re: New Golf
Message ID:
eodgh8$3rj$1@post.home.lunix
In article <26894.35500.qm@web56415.mail.re3.yahoo.com>,
Andrew Savige <ajsavige@yahoo.com.au> 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)
Thread Previous
|
Thread Next