Front page | perl.golf |
Postings from January 2007
Re: New Golf
Thread Previous
|
Thread Next
From:
perl-golf
Date:
January 14, 2007 07:32
Subject:
Re: New Golf
Message ID:
eodibk$57p$2@post.home.lunix
In article <eodi0m$57p$1@quasar.home.lunix>,
ton@quasar.home.lunix (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)
Thread Previous
|
Thread Next