diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-10-05 08:56:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-10-05 08:56:33 +0100 |
| commit | 7b2709958a10f5313177968083acf54ffa4a9d27 (patch) | |
| tree | 7cecfd9cb363faf640c07fe9d050ecce819e9ce8 | |
| parent | fcebb370a94a0ce06ef64ffa855e6e9df7c9cae1 (diff) | |
| parent | 9d2de008f04860056bb23509a008880f80a031c3 (diff) | |
| download | perlweeklychallenge-club-7b2709958a10f5313177968083acf54ffa4a9d27.tar.gz perlweeklychallenge-club-7b2709958a10f5313177968083acf54ffa4a9d27.tar.bz2 perlweeklychallenge-club-7b2709958a10f5313177968083acf54ffa4a9d27.zip | |
Merge pull request #4969 from Kaiepi/challenge-133
Optimize Ben Davies' challenge 133 task 2 solution
| -rw-r--r-- | challenge-133/ben-davies/raku/ch-2.raku | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-133/ben-davies/raku/ch-2.raku b/challenge-133/ben-davies/raku/ch-2.raku index ba862a20e4..831d18bda1 100644 --- a/challenge-133/ben-davies/raku/ch-2.raku +++ b/challenge-133/ben-davies/raku/ch-2.raku @@ -9,5 +9,6 @@ sub digits(Int:D $x, Int:D $base) { $x.polymod($base xx $x.log: $base).reverse } sub prime-factors(Int:D $x is copy) { - gather $x div= take (2..$x).grep(*.is-prime).first($x %% *) while $x > 1 + state Int:D @primes = (2..*).grep(*.is-prime); + gather $x div= take @primes.first($x %% *) while $x > 1 } |