diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-10 09:46:39 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-10 09:46:39 -0600 |
| commit | c07ad5febc4d9cf8fc5983a2286b77ca131f6f77 (patch) | |
| tree | 9bcc167df194b1829e1db8e5b5ee410781f72dd0 /challenge-125/mark-anderson | |
| parent | 6895c52b8cb0e2c5082a1e5be4066ed71d43ba5d (diff) | |
| download | perlweeklychallenge-club-c07ad5febc4d9cf8fc5983a2286b77ca131f6f77.tar.gz perlweeklychallenge-club-c07ad5febc4d9cf8fc5983a2286b77ca131f6f77.tar.bz2 perlweeklychallenge-club-c07ad5febc4d9cf8fc5983a2286b77ca131f6f77.zip | |
minor touch-up
Diffstat (limited to 'challenge-125/mark-anderson')
| -rw-r--r-- | challenge-125/mark-anderson/raku/ch-1.raku | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-125/mark-anderson/raku/ch-1.raku b/challenge-125/mark-anderson/raku/ch-1.raku index 45d1b480c3..1099bfbccb 100644 --- a/challenge-125/mark-anderson/raku/ch-1.raku +++ b/challenge-125/mark-anderson/raku/ch-1.raku @@ -8,12 +8,12 @@ # factor-pairs uses the Rainbow method # https://www.chilimath.com/lessons/introductory-algebra/finding-all-the-factors-of-a-whole-number-using-the-rainbow-method -multi sub MAIN($N) +multi MAIN($N) { .say for py-tris($N); } -multi sub MAIN +multi MAIN { use Test; plan 9; @@ -46,7 +46,6 @@ multi py-tris($N where * > 0) my $z = $r + $p[0] + $p[1]; take ($x, $y, $z) if any($x, $y, $z) == $N; - last SEQ if $x == $N and $z - $y == 1|2; } } |