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
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
