ой, это явно треш :)<br><br><div class="gmail_quote">2010/8/13 Dmitry Karasik <span dir="ltr">&lt;<a href="mailto:dmitry@karasik.eu.org">dmitry@karasik.eu.org</a>&gt;</span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
let the fun begin!<br>
<br>
1)<br>
use List::MoreUtils &#39;pairwise&#39;;<br>
print pairwise { $b - $a } @{[@inc[0..$#inc-1]]}, @{[@inc[1..$#inc]]};<br>
<br>
2)<br>
local $. = $inc[0];<br>
print map { -$.+($.=$_) } @inc[1..$#inc];<br>
<br>
и его деструктивная версия<br>
<br>
local $. = shift @inc;<br>
print map { -$.+($.=$_) } @inc;<br>
<div><div></div><div class="h5"><br>
<br>
On Fri, Aug 13, 2010 at 11:09:50AM +0200, Andrew Shitov wrote:<br>
&gt; Привет!<br>
&gt;<br>
&gt; А кто умеет упростить вот это, применив всякие map/grep?<br>
&gt;<br>
&gt;<br>
&gt; my @inc = (0, 10, 20, 35, 55);<br>
&gt; my @uni;<br>
&gt; for (my $c = 1; $c != scalar @inc; $c++) {<br>
&gt;     push @uni, $inc[$c] - $inc[$c - 1];<br>
&gt; }<br>
&gt; say Dumper \@uni;<br>
&gt;<br>
&gt;<br>
&gt; --<br>
&gt; Andrew Shitov<br>
&gt; ______________________________________________________________________<br>
&gt; <a href="mailto:andy@shitov.ru">andy@shitov.ru</a> | <a href="http://shitov.ru" target="_blank">http://shitov.ru</a><br>
&gt; --<br>
&gt; Moscow.pm mailing list<br>
&gt; <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>
</div></div>--<br>
Sincerely,<br>
<font color="#888888">        Dmitry Karasik<br>
</font><div><div></div><div class="h5"><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>