<div>$ perl6 -e'say [+] 1, 2, 3'</div><div>6</div><div><br></div><div>:-)</div><div><br></div><br><div class="gmail_quote">2011/6/7 Aleksander Gorohovski <span dir="ltr"><<a href="mailto:angel@feht.dgtu.donetsk.ua">angel@feht.dgtu.donetsk.ua</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="im">On Tue, 07 Jun 2011 21:36:40 +0300, Alexander Onokhov wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
$ perl -MList::Util=sum -le 'print sum 1, 2, 3'<br>
6<br>
</blockquote>
<br></div>
Спасибо, конечно,<br>
но а без модулей и подпрограмм обойтись можно<div><div></div><div class="h5"><br>
?<br>
<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
2011/6/7 Aleksander Gorohovski <<a href="mailto:angel@feht.dgtu.donetsk.ua" target="_blank">angel@feht.dgtu.donetsk.ua</a>><br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Уважаемое сообщество,<br>
Доброго времени суток!<br>
<br>
Подскажите можно ли более изящно, без промежуточной переменной $sum,<br>
как это обычно делаю:<br>
<br>
my $sum;<br>
$sum += $_ for @m;<br>
<br>
подсчитать сумму элементов массива @m<br>
?<br>
<br>
Спасибо.<br>
--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br>
</blockquote>
<br>
<br>
</blockquote>
-- <br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Andrew Shitov<br>______________________________________________________________________<br><a href="mailto:andy@shitov.ru">andy@shitov.ru</a> | <a href="http://shitov.ru">http://shitov.ru</a><br>