Re: New Golf

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

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

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

Exactly the same thing, but taking a bit more care with the tie breaker
so that it actually beats szeryf's solution:

#!perl -pl
@%{@;}=0..map+s!.!y$IVCXL426(-:$XLMCDIVX$dfor$;[$_].=5x$&*8%29628!eg,!y/m/-/..3999;s/\w+/+$%{$&}/g;$_=$;[eval]

(114.47)