Merge pull request #6268 from habere-et-dispertire/patch-1

Raku: Brilliant numbers

1 files changed, 18 insertions, 0 deletions

diff --git a/challenge-169/habere-et-dispetire/raku/ch-1.raku b/challenge-169/habere-et-dispetire/raku/ch-1.raku
new file mode 100644
index 0000000000..67400cc525
--- /dev/null
+++ b/challenge-169/habere-et-dispetire/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#! /usr/bin/env raku
+
+# Brilliant numbers
+
+use Prime::Factor;
+
+sub is-brilliant ($n) {
+
+           .elems == 2 and
+        [==] .map: *.chars
+    given prime-factors $n
+
+}
+
+say (1 .. ∞)
+    # https://oeis.org/A078972
+    .grep(&is-brilliant)
+    .head(20)