From 42c93bf044cbb16c9e1e904aadc54efbfc2ad067 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Tue, 7 Jul 2020 09:30:11 +0100 Subject: - Make probability of picking 1 higher than 0. --- challenge-068/mohammad-anwar/perl/ch-1.pl | 9 ++++++--- 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))]; } } -- cgit