[Moscow.pm] sum of array

[Oleg Alistratov]

Привет,

On 07.06.2011 21:34, Aleksander Gorohovski wrote:

> Подскажите можно ли более изящно, без промежуточной переменной $sum,
> как это обычно делаю:
>
> my $sum;
> $sum += $_ for @m;


> но а без модулей и подпрограмм обойтись можно


ой не. Ну зачем? Ну куда уж проще? Ну как же без аккумулятора и
не пряча в функцию? Извратиться, конечно, можно:

perl -e "print eval join '+', (1 .. 10);"

но если это изящно, то я крокодил.




--
Олег Алистратов