diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-12-26 20:02:37 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-12-26 20:02:37 +0000 |
| commit | 86b98284578f06df4a1e60ea71fef00d4f3877c6 (patch) | |
| tree | e2c317f681d75682a34295b56bd9606e0fcceb52 | |
| parent | 242adc303a32a90655c65651045f910ca4a044ea (diff) | |
| parent | 17094e0d902c256357373b72be89f482c7d89921 (diff) | |
| download | perlweeklychallenge-club-86b98284578f06df4a1e60ea71fef00d4f3877c6.tar.gz perlweeklychallenge-club-86b98284578f06df4a1e60ea71fef00d4f3877c6.tar.bz2 perlweeklychallenge-club-86b98284578f06df4a1e60ea71fef00d4f3877c6.zip | |
Merge pull request #5415 from andemark/branch-for-challenge-144
ch-1.raku
| -rw-r--r-- | challenge-144/mark-anderson/raku/ch-1.raku | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-144/mark-anderson/raku/ch-1.raku b/challenge-144/mark-anderson/raku/ch-1.raku index e5e68b46d6..56e79ba1ed 100644 --- a/challenge-144/mark-anderson/raku/ch-1.raku +++ b/challenge-144/mark-anderson/raku/ch-1.raku @@ -13,7 +13,6 @@ is-deeply (^Inf).hyper.grep(&semi-prime)[1000, 2000, 5000, 9999], sub semi-prime($n) { - my @div = proper-divisors($n, :s).skip; - return False if @div ~~ Empty; - return @div.grep(*.is-prime) == @div; + my $div := proper-divisors($n, :s).skip; + $div.elems and $div.all.is-prime; } |