http://qs321.pair.com?node_id=1214818


in reply to Re: Abusing Map
in thread Abusing Map

use List::MoreUtils qw( zip6 );

my @b =
   map { $_->[0] - $_->[1] }
      zip6
         @{[ @a[0..$#a-1] ]},
         @{[ @a[1..$#a]   ]};

[download]

:)

In Section Seekers of Perl Wisdom