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