Круглые скобки лишние<br><br><div class="gmail_quote">2010/8/13 Jury Gorky <span dir="ltr"><<a href="mailto:jury.gorky@gmail.com">jury.gorky@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
@uni = map { $inc[$_] - $inc[$_ - 1] } (1..$#inc);<br>
<br>
2010/8/13 Andrew Shitov <<a href="mailto:andy@shitov.ru">andy@shitov.ru</a>>:<br>
<div><div></div><div class="h5">> Привет!<br>
><br>
> А кто умеет упростить вот это, применив всякие map/grep?<br>
><br>
><br>
> my @inc = (0, 10, 20, 35, 55);<br>
> my @uni;<br>
> for (my $c = 1; $c != scalar @inc; $c++) {<br>
> push @uni, $inc[$c] - $inc[$c - 1];<br>
> }<br>
> say Dumper \@uni;<br>
><br>
><br>
> --<br>
> Andrew Shitov<br>
> ______________________________________________________________________<br>
> <a href="mailto:andy@shitov.ru">andy@shitov.ru</a> | <a href="http://shitov.ru" target="_blank">http://shitov.ru</a><br>
> --<br>
> Moscow.pm mailing list<br>
> <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
><br>
--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">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>С уважением,<br> Анатолий Шарифулин.<br>