- Added Raku solution to the task "Primorial Numbers" of week 170.

1 files changed, 38 insertions, 0 deletions

diff --git a/challenge-170/mohammad-anwar/raku/ch-1.raku b/challenge-170/mohammad-anwar/raku/ch-1.raku
new file mode 100644
index 0000000000..bd394fe44e
--- /dev/null
+++ b/challenge-170/mohammad-anwar/raku/ch-1.raku
@@ -0,0 +1,38 @@
+#!/usr/bin/env raku
+
+=begin pod
+
+Week 170:
+
+    https://theweeklychallenge.org/blog/perl-weekly-challenge-170
+
+Task #1: Primorial Numbers
+
+    Write a script to generate first 10 Primorial Numbers.
+
+=end pod
+
+use Test;
+
+is primorial-numbers(10),
+   [2, 6, 30, 210, 2310, 30030, 510510, 9699690, 223092870, 6469693230];
+
+done-testing;
+
+#
+#
+# METHOD
+
+sub primorial-numbers(Int $n) {
+    my $pn = [];
+    my $i  = 0;
+    my $j  = 1;
+    while ($pn.elems < $n) {
+        $i++;
+        next unless $i.is-prime;
+        $j = $i * $j;
+        $pn.push: $j;
+    }
+
+    return $pn;
+}