diff options
| author | Scimon Proctor <simon.proctor@gmail.com> | 2021-08-09 14:15:15 +0100 |
|---|---|---|
| committer | Scimon Proctor <simon.proctor@gmail.com> | 2021-08-09 14:15:15 +0100 |
| commit | 12dd93a4a9defb89724f216bb360689ff3fd1b9e (patch) | |
| tree | 467ee153c3ddd0c35e12f721b827c99c523e26df | |
| parent | 2fd3284b4fe1fff4704852af151b0efcecad2d2c (diff) | |
| download | perlweeklychallenge-club-12dd93a4a9defb89724f216bb360689ff3fd1b9e.tar.gz perlweeklychallenge-club-12dd93a4a9defb89724f216bb360689ff3fd1b9e.tar.bz2 perlweeklychallenge-club-12dd93a4a9defb89724f216bb360689ff3fd1b9e.zip | |
Tidying up a bit
| -rw-r--r-- | challenge-125/simon-proctor/raku/ch-1.raku | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-125/simon-proctor/raku/ch-1.raku b/challenge-125/simon-proctor/raku/ch-1.raku index bf36282fe4..e5dc16521a 100644 --- a/challenge-125/simon-proctor/raku/ch-1.raku +++ b/challenge-125/simon-proctor/raku/ch-1.raku @@ -29,8 +29,9 @@ sub py-triples(UInt $N) { my @pairs = (@odds X, @odds).grep( -> ($m, $n) { $m > $n } ); for @pairs -> ( $m, $n ) { - if ( $N ~~ $m * $n || $N ~~ ($m²-$n²)/2 || $N ~~ ($m² + $n²)/2 ) { - push @out, $ = ( ($m * $n), ( ($m²-$n²)/2), ( ($m² + $n²)/2 ) ); + my $pos = ( ($m * $n), ( ($m²-$n²)/2), ( ($m² + $n²)/2 ) ); + if ( $N ~~ $pos.any ) { + push @out, $pos; } } |