[Moscow.pm] sum of array

[Aleksander Gorohovski]

On Tue, 07 Jun 2011 22:34:07 +0300, Alexey Surikov wrote:

> Есть куча служебных переменных, которые редко используются и которые  
> можно
> (но не нужно) приспособить под свои нужды:
>
> $. += $_ for @m; say $.
>
> В конце концов есть ведь сам массив:
>
> unshift @m, 0; $m[0] += $m[$_] for 1 .. $#m; say shift @m;

Всё это так.

Но весь фокус в том, что эта сумма не является конечной целью.
Она тоже промежуточный результат и участвует в произведении с другими,
по типу:

$result += $sum * $a / $b;

здесь не получается и вариант

$result += eval{ join'+', на m } * $a / $b;

Конечно, @m содержит только целые '+','-' и 0