View Multiplying Matrix.pl
#!/usr/bin/perl | |
my $range = 20; | |
my $minimum = 10; | |
my $random_number = (int(rand($range)) + $minimum); | |
my @array1 =([0..$random_number],[0..$random_number]); | |
my @array2 =([0..$random_number],[0..$random_number]); | |
my @solution =([0..$random_number], [0..$random_number]); | |
for(my $index1 = 0; $index1 < $random_number; $index1++){ | |
for(my $index2 = 0; $index2 < $random_number; $index2++){ |