- Make probability of picking 1 higher than 0.

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))];
         }
     }