Merge pull request #5798 from wambash/challenge-week-156

solution week 156

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-156/wambash/raku/ch-1.raku b/challenge-156/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..649d9d1f8a
--- /dev/null
+++ b/challenge-156/wambash/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+sub pernicious-numbers ($n=10) {
+    ^∞
+    andthen .grep: *.base(2).comb.sum.is-prime
+    andthen .head($n)
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is pernicious-numbers(10), <3 5 6 7 9 10 11 12 13 14>;
+    done-testing;
+}
+
+multi MAIN ($n=10) {
+    put pernicious-numbers $n
+}