diff options
| author | habere-et-dispertire <github.eggs@neverbox.com> | 2022-06-15 01:26:12 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-06-15 01:26:12 +0100 |
| commit | dd0a009b23e29a9aaf2ae49c554e32fec0492646 (patch) | |
| tree | ce7988d6c23970dc34a9c5a16a0f371b57cbf5d9 | |
| parent | 5cf0768375d1e0df139eec109433726256ed489a (diff) | |
| download | perlweeklychallenge-club-dd0a009b23e29a9aaf2ae49c554e32fec0492646.tar.gz perlweeklychallenge-club-dd0a009b23e29a9aaf2ae49c554e32fec0492646.tar.bz2 perlweeklychallenge-club-dd0a009b23e29a9aaf2ae49c554e32fec0492646.zip | |
Raku: Achilles numbers
| -rw-r--r-- | challenge-169/habere-et-dispetire/raku/ch-2.raku | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-169/habere-et-dispetire/raku/ch-2.raku b/challenge-169/habere-et-dispetire/raku/ch-2.raku new file mode 100644 index 0000000000..b387e3905f --- /dev/null +++ b/challenge-169/habere-et-dispetire/raku/ch-2.raku @@ -0,0 +1,18 @@ +#! /usr/bin/env raku + +# Achilles numbers + +use Prime::Factor; + +sub is-achilles ($n) { + + 2 ≤ .min and + 1 == [gcd] $_ + given @(values bag prime-factors $n) + +} + +say (2 .. ∞) + # https://oeis.org/A052486 + .grep(&is-achilles) + .head(20) |