diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-10 16:32:51 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-10 16:32:51 -0600 |
| commit | af175864ddd13bd0463234eefe74dafd00751574 (patch) | |
| tree | 08bb335421261b167b56065ef428983441ab40f8 | |
| parent | b90bf934aded486cb21a7ee22af71a8b302a1167 (diff) | |
| download | perlweeklychallenge-club-af175864ddd13bd0463234eefe74dafd00751574.tar.gz perlweeklychallenge-club-af175864ddd13bd0463234eefe74dafd00751574.tar.bz2 perlweeklychallenge-club-af175864ddd13bd0463234eefe74dafd00751574.zip | |
ch-1.raku
| -rw-r--r-- | challenge-125/mark-anderson/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-125/mark-anderson/raku/ch-1.raku b/challenge-125/mark-anderson/raku/ch-1.raku index 48f340208a..5fcce130cd 100644 --- a/challenge-125/mark-anderson/raku/ch-1.raku +++ b/challenge-125/mark-anderson/raku/ch-1.raku @@ -53,6 +53,6 @@ multi py-tris($N where * > 0) sub factor-pairs($n) { my @divs = proper-divisors($n); - @divs = @divs.grep(* < sqrt($n)); + @divs .= grep(* < sqrt($n)); @divs.map({ $_, $n div $_ }); } |