[Moscow.pm] sum of array
Alexander Onokhov
ccnweb на gmail.com
Вт Июн 7 11:45:02 PDT 2011
Можно
$ perl -le 'print eval join "+", 1, 2, 3'
6
2011/6/7 Aleksander Gorohovski <angel на feht.dgtu.donetsk.ua>
> 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
>>>
>>>
>>
>> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
--
Alexander
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20110607/6ddf5ccb/attachment.html>
Подробная информация о списке рассылки Moscow-pm