diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2021-12-21 11:14:43 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2021-12-21 11:14:43 +0000 |
| commit | 84e35736592b8464cbaef30fe28680c77f9db0d7 (patch) | |
| tree | 31162a67139e363a57d47d7cffbe9d788b790587 | |
| parent | f4c5e54756a120462dbd7496d7605eb2c3d166fa (diff) | |
| download | perlweeklychallenge-club-84e35736592b8464cbaef30fe28680c77f9db0d7.tar.gz perlweeklychallenge-club-84e35736592b8464cbaef30fe28680c77f9db0d7.tar.bz2 perlweeklychallenge-club-84e35736592b8464cbaef30fe28680c77f9db0d7.zip | |
ch-1.raku
| -rw-r--r-- | challenge-144/mark-anderson/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-144/mark-anderson/raku/ch-1.raku b/challenge-144/mark-anderson/raku/ch-1.raku index 8d0a4b3b3d..e5e68b46d6 100644 --- a/challenge-144/mark-anderson/raku/ch-1.raku +++ b/challenge-144/mark-anderson/raku/ch-1.raku @@ -13,7 +13,7 @@ is-deeply (^Inf).hyper.grep(&semi-prime)[1000, 2000, 5000, 9999], sub semi-prime($n) { - my @div = proper-divisors($n).skip; + my @div = proper-divisors($n, :s).skip; return False if @div ~~ Empty; return @div.grep(*.is-prime) == @div; } |