Re: New Golf

[email protected] ((Ton Hospel)) Sun, 14 Jan 2007 15:25:10 +0000 (UTC)

Newsgroups	perl.golf
Organization	lunix confusion services
Message-ID	<[email protected]>

In article <[email protected]>,
	[email protected] (Ton Hospel) writes:
> 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)

Also use map to get the range:

#!perl -pl
@Y{@X}=0..map s!.!y$IVCXL91-I0$XLMCDXVIII$dfor$X[$_].=4x$&%1859^7!eg,!y/m/-/..3999;s/\w+/+$Y{$&}/g;$_=$X[eval]

(114.54)