diff options
| author | habere-et-dispertire <github.eggs@neverbox.com> | 2022-06-19 22:18:39 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-06-19 22:18:39 +0100 |
| commit | ed319dba8944987253b02e25d4d475baf4428416 (patch) | |
| tree | 91d3714f026451be3eec09575c18db35b7e3236c | |
| parent | 15903ca51f442e77b9b2a7a6c83d87756b46d5b3 (diff) | |
| download | perlweeklychallenge-club-ed319dba8944987253b02e25d4d475baf4428416.tar.gz perlweeklychallenge-club-ed319dba8944987253b02e25d4d475baf4428416.tar.bz2 perlweeklychallenge-club-ed319dba8944987253b02e25d4d475baf4428416.zip | |
Update ch-2.raku
| -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 |