diff options
| -rw-r--r-- | challenge-169/habere-et-dispetire/raku/ch-1.raku | 18 |
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) |