aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad S Anwar <Mohammad.Anwar@yahoo.com>2020-03-04 12:48:48 +0000
committerGitHub <noreply@github.com>2020-03-04 12:48:48 +0000
commitc5a24234031519c316c2270b93aff2e562c9c53e (patch)
treeffe9c1032eff21d51eec5dc9b575e17203e65203
parent710dc080dfc352ad9736484de99f6c89d1335aaa (diff)
parentf3608c06de1e74d946be74a64b3c13a0d61d4faf (diff)
downloadperlweeklychallenge-club-c5a24234031519c316c2270b93aff2e562c9c53e.tar.gz
perlweeklychallenge-club-c5a24234031519c316c2270b93aff2e562c9c53e.tar.bz2
perlweeklychallenge-club-c5a24234031519c316c2270b93aff2e562c9c53e.zip
Merge pull request #1357 from Scimon/master
Max value by default is 50 from the definition
-rw-r--r--challenge-050/simon-proctor/raku/ch-2.p62
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-050/simon-proctor/raku/ch-2.p6 b/challenge-050/simon-proctor/raku/ch-2.p6
index d9f7ac1da4..803b5f239c 100644
--- a/challenge-050/simon-proctor/raku/ch-2.p6
+++ b/challenge-050/simon-proctor/raku/ch-2.p6
@@ -6,7 +6,7 @@ use v6;
#| Then print the Noble Integers in the list
multi sub MAIN (
UInt :n(:$number) = 10, #= Number of values to generate
- UInt :m(:$max) where { $max > $number } = 30 #= Maximum value (must be greater then $n)
+ UInt :m(:$max) where { $max > $number } = 50 #= Maximum value (must be greater then $n)
) {
my @list = (1..$max).pick($number);
say "Generated List : {@list.join(",")}";