From 5b6a0be1ce89804651c1a09838fe269eebf8e470 Mon Sep 17 00:00:00 2001
From: Matthew Neleigh <matthew.neleigh@gmail.com>
Date: Thu, 23 Jun 2022 03:37:42 -0400
Subject: 	modified:   challenge-170/mattneleigh/perl/ch-2.pl

---
 challenge-170/mattneleigh/perl/ch-2.pl | 4 +---
 1 file changed, 1 insertion(+), 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");
 }
 
-- 
cgit