[Moscow.pm] sum of array

[Aleksander Gorohovski]

On Tue, 07 Jun 2011 21:36:40 +0300, Alexander Onokhov wrote:

> $ perl -MList::Util=sum -le 'print sum 1, 2, 3'
> 6

Спасибо, конечно,
но а без модулей и подпрограмм обойтись можно
?


> 2011/6/7 Aleksander Gorohovski <angel на feht.dgtu.donetsk.ua>
>
>> Уважаемое сообщество,
>> Доброго времени суток!
>>
>> Подскажите можно ли более изящно, без промежуточной переменной $sum,
>> как это обычно делаю:
>>
>> my $sum;
>> $sum += $_ for @m;
>>
>> подсчитать сумму элементов массива @m
>> ?
>>
>> Спасибо.
>> --
>> Moscow.pm mailing list
>> moscow-pm на pm.org | http://moscow.pm.org
>>
>
>