diff options
| -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); |