diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-10 16:45:08 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-08-10 16:45:08 -0600 |
| commit | b7af3822cbd5c971cf06f7051c03a028577a4971 (patch) | |
| tree | b45011eaaf02e9c5e5b93183b8f593a1fadc340f | |
| parent | af175864ddd13bd0463234eefe74dafd00751574 (diff) | |
| download | perlweeklychallenge-club-b7af3822cbd5c971cf06f7051c03a028577a4971.tar.gz perlweeklychallenge-club-b7af3822cbd5c971cf06f7051c03a028577a4971.tar.bz2 perlweeklychallenge-club-b7af3822cbd5c971cf06f7051c03a028577a4971.zip | |
ch-1.raku
| -rw-r--r-- | challenge-125/mark-anderson/raku/ch-1.raku | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-125/mark-anderson/raku/ch-1.raku b/challenge-125/mark-anderson/raku/ch-1.raku index 5fcce130cd..d27f224bb7 100644 --- a/challenge-125/mark-anderson/raku/ch-1.raku +++ b/challenge-125/mark-anderson/raku/ch-1.raku @@ -37,11 +37,11 @@ multi py-tris($N where * > 0) { SEQ: for 2, 4 ... * -> $r { - for factor-pairs(($r**2/2).Int) -> $p + for factor-pairs(($r**2 / 2).Int) -> ($s, $t) { - my $x = $r + $p[0]; - my $y = $r + $p[1]; - my $z = $r + $p[0] + $p[1]; + my $x = $r + $s; + my $y = $r + $t; + my $z = $r + $s + $t; take ($x, $y, $z) if any($x, $y, $z) == $N; last SEQ if $x == $N and $z - $y == 1|2; |