diff options
| -rw-r--r-- | challenge-169/habere-et-dispetire/raku/ch-2.raku | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/challenge-169/habere-et-dispetire/raku/ch-2.raku b/challenge-169/habere-et-dispetire/raku/ch-2.raku index b387e3905f..ceb611c61f 100644 --- a/challenge-169/habere-et-dispetire/raku/ch-2.raku +++ b/challenge-169/habere-et-dispetire/raku/ch-2.raku @@ -1,6 +1,7 @@ #! /usr/bin/env raku # Achilles numbers +# https://oeis.org/A052486 use Prime::Factor; @@ -8,11 +9,11 @@ sub is-achilles ($n) { 2 ≤ .min and 1 == [gcd] $_ - given @(values bag prime-factors $n) + given cache values bag prime-factors $n } -say (2 .. ∞) - # https://oeis.org/A052486 - .grep(&is-achilles) - .head(20) +(2 .. ∞) + .grep( &is-achilles ) + .head( 20 ) + .put |