From 3bae479f50d8528d550c362a38d1c1a2fc0bc9bd Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 20 Mar 2022 07:03:04 +0100
Subject: solution week 156

---
 challenge-156/wambash/raku/ch-1.raku | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 challenge-156/wambash/raku/ch-1.raku

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
+}
-- 
cgit