From 3149cc54b8748d67660f0e8fae87af1855f8ddbf Mon Sep 17 00:00:00 2001 From: habere-et-dispertire Date: Wed, 15 Jun 2022 01:23:04 +0100 Subject: Raku: Brilliant numbers --- challenge-169/habere-et-dispetire/raku/ch-1.raku | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 challenge-169/habere-et-dispetire/raku/ch-1.raku 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) -- cgit