diff options
| -rwxr-xr-x | challenge-204/mattneleigh/perl/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-204/mattneleigh/perl/ch-2.pl b/challenge-204/mattneleigh/perl/ch-2.pl index acc203b64a..161113b656 100755 --- a/challenge-204/mattneleigh/perl/ch-2.pl +++ b/challenge-204/mattneleigh/perl/ch-2.pl @@ -36,7 +36,7 @@ my @matrix_data = ( print("\n"); foreach my $matrix_instance (@matrix_data){ - my $rearranged_matrix = reshape_matrix( + my $reshaped_matrix = reshape_matrix( $matrix_instance->{matrix}, $matrix_instance->{r}, $matrix_instance->{c} @@ -47,8 +47,8 @@ foreach my $matrix_instance (@matrix_data){ matrix_to_string($matrix_instance->{matrix}), $matrix_instance->{r}, $matrix_instance->{c}, - defined($rearranged_matrix) ? - matrix_to_string($rearranged_matrix) + defined($reshaped_matrix) ? + matrix_to_string($reshaped_matrix) : "0" ); |