http://www.perlmonks.org?node_id=193784

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re: adder
by Abigail-II (Bishop) on Aug 29, 2002 at 14:57 UTC
    Smells like homework to me. Anyway, 
    use strict;
use warnings;

sub adder (\@\@) {map {$_ += $_ [0] [$_ [2] ++]} @{$_ [1]}}

my @one = (1, 2, 3, 4,  5);
my @two = (6, 7, 8, 9, 10);

adder @one => @two;

print "@two\n";
__END__
7 9 11 13 15

    [download]
    Explaining how it works is left as an exercise for the reader.

    Abigail

[reply]
[d/l]
Re: adder
by Zaxo (Archbishop) on Aug 29, 2002 at 14:50 UTC

    PDL does this kind of thing very well:

    perl -MPDL -e'$foo = pdl [1..3];$bar = pdl [5..7];$bar += $foo; print 
+$bar,$/'
[6 8 10]
$

    [download]

    After Compline,
    Zaxo

[reply]
[d/l]
Re: adder
by Notromda (Pilgrim) on Aug 29, 2002 at 14:54 UTC
    This sounds a lot like a homework project, so I'm not going to write the entire thing. but it sounds like when you call your subroutine, you need to pass it references to your arrays: 
    my @one = (1,2,3,4);
my @two = (6,7,8,9);

&adder(\@one,\@two);

    [download]
[reply]
[d/l]
Re: adder
by fruiture (Curate) on Aug 29, 2002 at 14:48 UTC

    Specify "adds two integer arrays together"! What should it do?

    --
    http://fruiture.de
[reply]
Re: adder
by theorbtwo (Prior) on Aug 30, 2002 at 03:44 UTC

    You could try doing this:

    use warnings;
use strict;

my @array1=(1, 2, 0);
my @array2=(1, 1, 1);

sub addarrays {
 my ($a1, $a2) = @_;
 @$a2=@$a1+@$a2;
}

addarrays(\@array1, \@array2);
print @array2;

    [download]

    Warnings: Perl monks may behave like satinists, but only when (@{[localtime]})==9.

    Confession: It does an Immortal Body good.

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom