diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-10 17:56:41 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-10 17:56:41 +0100 |
| commit | 14c1b36f7f06697b1e8452ce0beea583fc320c36 (patch) | |
| tree | d1b4f8fccd4c77aa93d79c86cc49530f3a5b7733 | |
| parent | 4bd6b614d30bd8408205ba1511096fae0bbd8422 (diff) | |
| download | perlweeklychallenge-club-14c1b36f7f06697b1e8452ce0beea583fc320c36.tar.gz perlweeklychallenge-club-14c1b36f7f06697b1e8452ce0beea583fc320c36.tar.bz2 perlweeklychallenge-club-14c1b36f7f06697b1e8452ce0beea583fc320c36.zip | |
- Minor improvement.
| -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) = @_; |