On 25 Feb 2014, at 03:45, Paul Makepeace <pa...@paulm.com> wrote:
> On Mon, Feb 24, 2014 at 2:04 PM, Steve Mynott <steve.myn...@gmail.com> wrote:
>> http://perltricks.com/article/72/2014/2/24/Perl-levels-up-with-native-subroutine-signatures
>
> Finally. But don't believe the python/perl comparison troll, as
> python, for once, actually outguns perl on a character chomping basis,
>
> sub pairwise_sum ($arg1, $arg2) {
> return map { $arg1->[$_] + $arg2->[$_] } 0 .. $#$arg1;
> }
>
> def pairwise_sum(list1, list2):
> return [i + j for i, j in zip(list1, list2)]
>
> Paul
But I probably already have List::MoreUtils imported (because Perl).
sub pairwise_sum ($a1, $a2) {
zip @$a1, @$a2;
}
And lets ignore the fact that the perl version that was used in the article was
buggy. If $arg2 is shorter than $arg1 it breaks. zip’s supposed defined
behaviour is to stop when either list runs out of elements.
James
