diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-10 20:01:50 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-10 20:01:50 -0600 |
| commit | 5554bb00d92bee7f864f8d6051ddfb6281386087 (patch) | |
| tree | 5084a46f95e2238b725bef31a9599dc669833c3d | |
| parent | 075bb4f10be3f7afab363b11b46057049860542b (diff) | |
| download | perlweeklychallenge-club-5554bb00d92bee7f864f8d6051ddfb6281386087.tar.gz perlweeklychallenge-club-5554bb00d92bee7f864f8d6051ddfb6281386087.tar.bz2 perlweeklychallenge-club-5554bb00d92bee7f864f8d6051ddfb6281386087.zip | |
ch-1.raku
| -rw-r--r-- | challenge-125/mark-anderson/raku/ch-1.raku | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/challenge-125/mark-anderson/raku/ch-1.raku b/challenge-125/mark-anderson/raku/ch-1.raku index 14b43975f0..510bd3cf53 100644 --- a/challenge-125/mark-anderson/raku/ch-1.raku +++ b/challenge-125/mark-anderson/raku/ch-1.raku @@ -4,8 +4,6 @@ # https://en.wikipedia.org/wiki/Formulas_for_generating_Pythagorean_triples#Dickson's_method # -use Prime::Factor; - multi MAIN($N) { .say for py-tris($N); @@ -52,7 +50,7 @@ multi py-tris($N where * > 0) sub factor-pairs($n) { - my @divs = proper-divisors($n); - @divs .= grep(* < sqrt($n)); - @divs.map({ $_, $n div $_ }); + grep ({ $n %% $_ }), 1..^sqrt($n) + + andthen .map({ $_, $n div $_ }); } |