public
Last active

  • Download Gist
gistfile1.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
use warnings;
use strict;
 
multiplyArray( [1,2,3], [4,5,6]);
 
sub multiplyArray{
#my $a = shift;
#my $b = shift;
my ($a, $b) = @_;
 
my @p;
 
foreach my $a_i (@$a){
my @row;
foreach my $b_j (@$b){
push @row, $a_i * $b_j;
}
push @p, \@row;
}
 
print "Reference to array product: ", \@p, "\n";
print "Dereferenced array product: \n";
print "@$_\n" foreach @p;
}

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.