diff options
Diffstat (limited to 'challenge-064')
| -rw-r--r-- | challenge-064/mohammad-anwar/perl/ch-1.pl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/challenge-064/mohammad-anwar/perl/ch-1.pl b/challenge-064/mohammad-anwar/perl/ch-1.pl index a9bcec01e6..9fad851e35 100644 --- a/challenge-064/mohammad-anwar/perl/ch-1.pl +++ b/challenge-064/mohammad-anwar/perl/ch-1.pl @@ -3,13 +3,11 @@ use strict; use warnings; -my $M = [ - [ 1, 2, 3 ], - [ 4, 5, 6 ], - [ 7, 8, 9 ], -]; +my $matrix = [[ 1, 2, 3 ], + [ 4, 5, 6 ], + [ 7, 8, 9 ]]; -print sprintf("%s\n", join " → ", @$_) for find_path($M, 0, 0); +print sprintf("%s\n", join " → ", @$_) for find_path($matrix, 0, 0); sub find_path { my ($matrix, $row, $col, $path) = @_; |