challenge 156, raku solutions

2 files changed, 17 insertions, 0 deletions

diff --git a/challenge-156/feng-chang/raku/ch-1.raku b/challenge-156/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..e9ffe88c2c
--- /dev/null
+++ b/challenge-156/feng-chang/raku/ch-1.raku
@@ -0,0 +1,3 @@
+#!/bin/env raku
+
+put (1..∞).grep(*.base(2).comb.sum.is-prime)[^10];
diff --git a/challenge-156/feng-chang/raku/ch-2.raku b/challenge-156/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..a6bd9372fd
--- /dev/null
+++ b/challenge-156/feng-chang/raku/ch-2.raku
@@ -0,0 +1,14 @@
+#!/bin/env raku
+
+unit sub MAIN(UInt:D \n);
+
+put +is-weird(n);
+
+sub proper-divisors(UInt:D \n) { (1..^n).grep({ n %% $_ }) }
+
+sub is-weird(UInt:D \n) {
+    my @d = proper-divisors(n);
+    my \和 = @d.sum;
+
+    和 > n and @d.combinations».sum.grep(* == 和 - n).elems == 0
+}