diff options
| -rwxr-xr-x | challenge-170/mattneleigh/perl/ch-2.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-170/mattneleigh/perl/ch-2.pl b/challenge-170/mattneleigh/perl/ch-2.pl index ac26f973d0..36b7f321b0 100755 --- a/challenge-170/mattneleigh/perl/ch-2.pl +++ b/challenge-170/mattneleigh/perl/ch-2.pl @@ -41,9 +41,7 @@ my @matrix_pairs = ( print("\n"); foreach my $pair (@matrix_pairs){ - my @k_prod = @{kronecker_product($pair->[0], $pair->[1])}; - - print_matrix(\@k_prod, " "); + print_matrix(kronecker_product($pair->[0], $pair->[1]), " "); print("\n"); } |