diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-04-07 04:47:21 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-04-07 04:47:21 +0100 |
| commit | c84ea477266306802feca2b1a7d2ccdd9639884e (patch) | |
| tree | 8d8ed5329c8ad5c764f68d2bd5e669a926835abd | |
| parent | 2da9fe37b857fa0bff2e712c623d9969237f1910 (diff) | |
| parent | c05f7e12bab9daacbef5e5c2b097055531b0af4c (diff) | |
| download | perlweeklychallenge-club-c84ea477266306802feca2b1a7d2ccdd9639884e.tar.gz perlweeklychallenge-club-c84ea477266306802feca2b1a7d2ccdd9639884e.tar.bz2 perlweeklychallenge-club-c84ea477266306802feca2b1a7d2ccdd9639884e.zip | |
Merge pull request #5894 from Scimon/master
Small fix to prime factorisation code
| -rw-r--r-- | challenge-159/simon-proctor/raku/ch-2.raku | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/challenge-159/simon-proctor/raku/ch-2.raku b/challenge-159/simon-proctor/raku/ch-2.raku index 364774c744..0547cb5d76 100644 --- a/challenge-159/simon-proctor/raku/ch-2.raku +++ b/challenge-159/simon-proctor/raku/ch-2.raku @@ -5,10 +5,13 @@ sub MAIN( Int() \n ) { say Möbius(n); } +subset Prime of Int where *.is-prime; + multi sub prime-factors(1) { [] } -multi sub prime-factors(Int() $x) { - my $p = (2..^$x).first($x %% *); - return $p ?? [$p, |prime-factors($x div $p)] !! [$x] +multi sub prime-factors(Prime \n) { [n] } +multi sub prime-factors(Int() \x) { + my \p = (2..^x).first(x %% *); + return [p, |prime-factors(x div p)]; } sub square-free(Int() $x) { my @p = prime-factors($x); |