Challenge #139, Raku solutions

2 files changed, 15 insertions, 0 deletions

diff --git a/challenge-139/feng-chang/raku/ch-1.raku b/challenge-139/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..b29a51486c
--- /dev/null
+++ b/challenge-139/feng-chang/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+sub MAIN(*@nums where .all ~~ Int) {
+    put + [<] @nums;
+}
diff --git a/challenge-139/feng-chang/raku/ch-2.raku b/challenge-139/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..36754cb708
--- /dev/null
+++ b/challenge-139/feng-chang/raku/ch-2.raku
@@ -0,0 +1,10 @@
+#!/bin/env raku
+
+put (1..∞).grep({ is-long-prime($_) })[^10];
+
+sub is-long-prime(UInt:D $p --> Bool:D) {
+    return False unless $p.is-prime;
+    return False if $p < 3;
+    return False if (1 .. $p-2).map(9 x *).grep(* %% $p);
+    return (9 x $p-1) %% $p;
+}