diff options
| -rw-r--r-- | challenge-068/mohammad-anwar/perl/ch-1a.pl | 18 |
1 files changed, 0 insertions, 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; -} |