note
ikegami
<p>Given,
<c>
my @b;
$b[ $_-1 ] = $a[ $_-1 ] - $a[ $_ ] for 1 .. $#a;
</c>
<p>Micro-optimized:
<c>
my @b;
$b[ $_ ] = $a[ $_ ] - $a[ $_+1 ] for 0 .. $#a-1;
</c>
<p>Micro-optimized further:
<c>
my @b = @a;
$b[ $_ ] -= $b[ $_+1 ] for 0 .. $#b-1;
pop @b;
</c>
<P>Well, I suspect those are faster. I didn't actually test.
1214667
1214671