Help for this page

Select Code to Download


  1. or download this
    use List::MoreUtils qw/pairwise/;
@a = (1..5);
@b = (6..10);
...
print join ", ", @x;
__END__
6, 14, 24, 36, 50
  2. or download this
    use List::MoreUtils qw/pairwise/;
@a = (1..5);
...
print join ", ", @x;
__END__
6, 14, 24, 0, 0