From d67a9ab53ac0948a74f7bb6235978aec3861491d Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Wed, 8 Jul 2020 08:36:36 +0100
Subject: - Tidied up Perl solutions.

---
 challenge-068/mohammad-anwar/perl/ch-1a.pl | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/challenge-068/mohammad-anwar/perl/ch-1a.pl b/challenge-068/mohammad-anwar/perl/ch-1a.pl
index 530c8e6b34..7816357f90 100644
--- a/challenge-068/mohammad-anwar/perl/ch-1a.pl
+++ b/challenge-068/mohammad-anwar/perl/ch-1a.pl
@@ -55,21 +55,3 @@ sub make_zero_matrix {
 
     return $zero_matrix;
 }
-
-sub get_matrix {
-    my ($rows, $cols) = @_;
-
-    # prabability of picking 1 is higher than 0 (80:20).
-    my $min   = 0;
-    my $max   = 9;
-    my $array = [ 1, 0, 1, 1, 1, 1, 1, 0, 1, 1 ];
-
-    my $matrix  = [];
-    foreach my $r (0..$rows) {
-        foreach my $c (0..$cols) {
-            $matrix->[$r][$c] = $array->[int($min + rand($max - $min))];
-        }
-    }
-
-    return $matrix;
-}
-- 
cgit