diff options
| -rw-r--r-- | challenge-068/mohammad-anwar/perl/ch-1.pl | 9 | ||||
| -rw-r--r-- | challenge-068/mohammad-anwar/perl/ch-1a.pl | 9 |
2 files changed, 12 insertions, 6 deletions
diff --git a/challenge-068/mohammad-anwar/perl/ch-1.pl b/challenge-068/mohammad-anwar/perl/ch-1.pl index d87629c8ae..150f59340f 100644 --- a/challenge-068/mohammad-anwar/perl/ch-1.pl +++ b/challenge-068/mohammad-anwar/perl/ch-1.pl @@ -80,12 +80,15 @@ sub matrix { sub get_matrix { my ($rows, $cols) = @_; - my $minimum = 0; - my $maximum = 2; + # 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] = int($minimum + rand($maximum - $minimum)); + $matrix->[$r][$c] = $array->[int($min + rand($max - $min))]; } } diff --git a/challenge-068/mohammad-anwar/perl/ch-1a.pl b/challenge-068/mohammad-anwar/perl/ch-1a.pl index d9d369e2d5..7cad9f11f1 100644 --- a/challenge-068/mohammad-anwar/perl/ch-1a.pl +++ b/challenge-068/mohammad-anwar/perl/ch-1a.pl @@ -69,12 +69,15 @@ sub matrix { sub get_matrix { my ($rows, $cols) = @_; - my $minimum = 0; - my $maximum = 2; + # 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] = int($minimum + rand($maximum - $minimum)); + $matrix->[$r][$c] = $array->[int($min + rand($max - $min))]; } } |