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