[Moscow.pm] sum of array

[Dmitry Karasik]

On Tue, Jun 07, 2011 at 09:34:55PM +0300, Aleksander Gorohovski wrote:
> Уважаемое сообщество,
> Доброго времени суток!
> 
> Подскажите можно ли более изящно, без промежуточной переменной $sum,
> как это обычно делаю:
> 
> my $sum;
> $sum += $_ for @m;
> 
> подсчитать сумму элементов массива @m

это трудно назвать изящным, но зато без единого гвоздя, т.е. доп переменной )

print sub { (map {splice @_, 0, 2, $_[0] + ($_[1] // 0)} @_)[-1] }-> (1,2,3,4,5);

-- 
Sincerely,
	Dmitry Karasik