diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-06-19 22:20:51 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-06-19 22:20:51 +0100 |
| commit | f39f008976103aaea8dcdb1df64821c29dcaa3fd (patch) | |
| tree | fb76138a897d6dac07ba03828c32d8f439bb9e7f /challenge-169 | |
| parent | b54f8a321054922d961ba95236484bc50e8a8cf4 (diff) | |
| parent | ed319dba8944987253b02e25d4d475baf4428416 (diff) | |
| download | perlweeklychallenge-club-f39f008976103aaea8dcdb1df64821c29dcaa3fd.tar.gz perlweeklychallenge-club-f39f008976103aaea8dcdb1df64821c29dcaa3fd.tar.bz2 perlweeklychallenge-club-f39f008976103aaea8dcdb1df64821c29dcaa3fd.zip | |
Merge pull request #6295 from habere-et-dispertire/patch-4
Update ch-2.raku
Diffstat (limited to 'challenge-169')
| -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 |