<meta charset="utf-8"><font class="Apple-style-span" face="arial, sans-serif"><div><span class="Apple-style-span" style="border-collapse: collapse;">Есть ÐºÑƒÑ‡Ð° ÑÐ»ÑƒÐ¶ÐµÐ±Ð½Ñ‹Ñ… Ð¿ÐµÑ€ÐµÐ¼ÐµÐ½Ð½Ñ‹Ñ…, ÐºÐ¾Ñ‚орые Ñ€ÐµÐ´ÐºÐ¾ Ð¸ÑÐ¿Ð¾Ð»ÑŒÐ·ÑƒÑŽÑ‚ся Ð¸ ÐºÐ¾Ñ‚орые Ð¼Ð¾Ð¶Ð½Ð¾ (но Ð½Ðµ Ð½ÑƒÐ¶Ð½Ð¾) Ð¿Ñ€Ð¸ÑÐ¿Ð¾ÑÐ¾Ð±Ð¸Ñ‚ÑŒ Ð¿Ð¾Ð´ ÑÐ²Ð¾Ð¸ Ð½ÑƒÐ¶Ð´Ñ‹:</span></div>

<div><span class="Apple-style-span" style="border-collapse: collapse;"><br></span></div><div><span class="Apple-style-span" style="border-collapse: collapse;">$. += $_ for @m; say $.</span></div><div><span class="Apple-style-span" style="border-collapse: collapse;"><br>

</span></div><div><span class="Apple-style-span" style="border-collapse: collapse;">Ð’ ÐºÐ¾Ð½Ñ†Ðµ ÐºÐ¾Ð½Ñ†Ð¾Ð² ÐµÑÑ‚ÑŒ Ð²ÐµÐ´ÑŒ ÑÐ°Ð¼ Ð¼Ð°ÑÑÐ¸Ð²:</span></div><div><span class="Apple-style-span" style="border-collapse: collapse;"><br></span></div>

<div><span class="Apple-style-span" style="border-collapse: collapse;">unshift @m, 0; $m[0] += $m[$_] for 1 .. $#m; say shift @m;</span></div><br></font><div class="gmail_quote">2011/6/7  <span dir="ltr"><<a href="mailto:moscow-pm-request@pm.org">moscow-pm-request@pm.org</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div id=":a2">> 2011/6/7 Aleksander Gorohovski:<br>
><br>
>> ÐŸÐ¾Ð´ÑÐºÐ°Ð¶Ð¸Ñ‚е Ð¼Ð¾Ð¶Ð½Ð¾ Ð»Ð¸ Ð±Ð¾Ð»ÐµÐµ Ð¸Ð·ÑÑ‰Ð½Ð¾, Ð±ÐµÐ· Ð¿Ñ€Ð¾Ð¼ÐµÐ¶ÑƒÑ‚очной Ð¿ÐµÑ€ÐµÐ¼ÐµÐ½Ð½Ð¾Ð¹ $sum,<br>
>> ÐºÐ°Ðº ÑÑ‚о Ð¾Ð±Ñ‹Ñ‡Ð½Ð¾ Ð´ÐµÐ»Ð°ÑŽ:<br>
>><br>
>> my $sum;<br>
>> $sum += $_ for @m;<br>
>><br>
>> Ð¿Ð¾Ð´ÑÑ‡Ð¸Ñ‚ать ÑÑƒÐ¼Ð¼Ñƒ ÑÐ»ÐµÐ¼ÐµÐ½Ñ‚ов Ð¼Ð°ÑÑÐ¸Ð²Ð° @m<br>
>> ?<br>
><br>
> Ð¡ Ð¿Ð¾Ð´Ð¿Ñ€Ð¾Ð³Ñ€Ð°Ð¼Ð¼Ð¾Ð¹, Ð¿Ð¾Ñ‚ому Ð¿Ñ€Ð¾ÑÑ‚о Ð´Ð»Ñ ÐºÐ¾Ð»Ð»ÐµÐºÑ†Ð¸Ð¸:<br>
><br>
> Â  $ perl -E 'sub funcsum { @_ > 1 ? funcsum(@_[1..$#_]) + $_[0] :<br>
> $_[0] } say funcsum(@ARGV)' 1 1 2 3 5 8 11<br>
> Â  31<br>
<br>
О-о. Ð¢Ð¾Ð¶Ðµ Ð¡ÑƒÐ¿ÐµÑ€. Ð“лавное Ñ„ункция Ð±ÐµÐ·Ñ‹Ð¼ÑÐ½Ð½Ð°Ñ.<br>
Спасибо.<br>
<br>
> (Созреет Ð½Ð° ÐµÑ‰Ñ‘ Ð¾Ð´Ð¸Ð½ LT Ð´Ð»Ñ Ð¨Ð¸Ñ‚ова?) (:</div></blockquote></div><br>