Ejemplo: El Producto de Matrices

El siguiente ejemplo muestra una subrutina matrixProd que realiza el producto de matrices. Veamos un ejemplo de llamada:

lhp@nereida:~/Lperl/src$ sed -ne '58,64p' matrixproduct.pl | cat -n
     1  my $A = [[1,2,3],[2,4,6],[3,6,9]];
     2  my $B = [[1,2],[2,4],[3,6]];
     3  my $C = matrixProd($A,$B);
     4
     5  print "Matriz A \n"; printMat($A);
     6  print "\nMatriz B \n"; printMat($B);
     7  print "\nMatriz C \n"; printMat($C);

La ejecución del programa produce la siguiente salida:

lhp@nereida:~/Lperl/src$ matrixproduct.pl
Matriz A
1       2       3
2       4       6
3       6       9

Matriz B
1       2
2       4
3       6

Matriz C
14      28
28      56
42      84