17 lines
254 B
Perl
17 lines
254 B
Perl
|
@a = (1, 2, 3);
|
||
|
|
@b = (4, 5, 6);
|
||
|
|
|
||
|
|
sub addem {
|
||
|
|
local(*array1, *array2) = @_;
|
||
|
|
|
||
|
|
while (@array1) {
|
||
|
|
|
||
|
|
unshift @result, pop(@array1) + pop(@array2);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
return @result
|
||
|
|
}
|
||
|
|
|
||
|
|
@result = addem(*a, *b);
|
||
|
|
print join(", ", @result);
|