diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-13 21:20:31 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-13 21:20:31 +0100 |
| commit | 649e1f2c52bc1d2134b7db4fc33deeaf1b1effd4 (patch) | |
| tree | 0223b3b8a497f2e3bf1f174790a1fccfe1613f20 /challenge-077/mohammad-anwar | |
| parent | 9b37f3b78037881450da419f02fcd7b16652ad3e (diff) | |
| download | perlweeklychallenge-club-649e1f2c52bc1d2134b7db4fc33deeaf1b1effd4.tar.gz perlweeklychallenge-club-649e1f2c52bc1d2134b7db4fc33deeaf1b1effd4.tar.bz2 perlweeklychallenge-club-649e1f2c52bc1d2134b7db4fc33deeaf1b1effd4.zip | |
- Tidied up Perl solution.
Diffstat (limited to 'challenge-077/mohammad-anwar')
| -rw-r--r-- | challenge-077/mohammad-anwar/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-077/mohammad-anwar/perl/ch-2.pl b/challenge-077/mohammad-anwar/perl/ch-2.pl index ef6f597b43..ccb72ff3cd 100644 --- a/challenge-077/mohammad-anwar/perl/ch-2.pl +++ b/challenge-077/mohammad-anwar/perl/ch-2.pl @@ -20,7 +20,7 @@ my $C = $ARGV[1] || 3; die "ERROR: Invalid rows [$R].\n" unless ($R =~ /^\d+$/ && $R >=2 ); die "ERROR: Invalid cols [$C].\n" unless ($C =~ /^\d+$/ && $C >=2 ); -p(find_lonely_x(get_matrix($R, $C))); +p(find_lonely_x(get_matrix(--$R, --$C))); # # |