Help for this page

Select Code to Download

Select or download this

use 6; # require perl v6
use List::Util qw/reduce/;

@foobar = @{reduce{[@$a ^+ @$b]}\(@foo, @bar, @baz, @etc)};

Select or download this

use List::Util qw/reduce/;

@foobar = @{reduce{[map $a->[$_]+$b->[$_], 0..@$a>@$b?$#$a:$#$b]}
                   \(@foo, @bar, @baz, @etc};