From 649e1f2c52bc1d2134b7db4fc33deeaf1b1effd4 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sun, 13 Sep 2020 21:20:31 +0100
Subject: - Tidied up Perl solution.

---
 challenge-077/mohammad-anwar/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)));
 
 #
 #
-- 
cgit