[Wellington-pm] ? shorten an Perl snippet

[Dan Horne]

Without wanting to golf it, perhaps something like

my $product = 0;

for my $j (10 .. 59) {
    $product += $split_line[$j][5];
}

$product = $product/50;

You could divide by 50 inside the loop, but that might introduce too many
rounding errors


On 3 August 2010 09:04, <pfCd?Y*_Qbdb6 at perform.shyuser.com> wrote:

> Any monger got the short version of for Perl 50 day average when written
> as:
> {
> $product1 =
> ($split_line[10][5]+$split_line[11][5]+
>
> $split_line[12][5]+$split_line[13][5]+$split_line[14][5]+$split_line[15][5]+$split_line[16][5]+
>
> $split_line[17][5]+$split_line[18][5]+$split_line[19][5]+$split_line[20][5]+$split_line[21][5]+
>
> $split_line[22][5]+$split_line[23][5]+$split_line[24][5]+$split_line[25][5]+$split_line[26][5]+
>
> $split_line[27][5]+$split_line[28][5]+$split_line[29][5]+$split_line[30][5]+$split_line[31][5]+
>
> $split_line[32][5]+$split_line[33][5]+$split_line[34][5]+$split_line[35][5]+$split_line[36][5]+
>
> $split_line[37][5]+$split_line[38][5]+$split_line[39][5]+$split_line[40][5]+$split_line[41][5]+
>
> $split_line[42][5]+$split_line[43][5]+$split_line[44][5]+$split_line[45][5]+$split_line[46][5]+
>
> $split_line[47][5]+$split_line[48][5]+$split_line[49][5]+$split_line[50][5]+$split_line[51][5]+$split_line[52][5]+
>
> $split_line[53][5]+$split_line[54][5]+$split_line[55][5]+$split_line[56][5]+$split_line[57][5]+$split_line[58][5]+
> $split_line[59][5])/50;
> }
>
>
>
>
>
>
> _______________________________________________
> Wellington-pm mailing list
> Wellington-pm at pm.org
> http://mail.pm.org/mailman/listinfo/wellington-pm
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/wellington-pm/attachments/20100803/f3ffd959/attachment.html>