diff options
| author | Scimon <simon.proctor@gmail.com> | 2021-08-10 15:47:57 +0100 |
|---|---|---|
| committer | Scimon <simon.proctor@gmail.com> | 2021-08-10 15:47:57 +0100 |
| commit | ef6b617f44a1d0998e767bdea638c671b4180e01 (patch) | |
| tree | 70a2d7ca89874fcba972b6e12dcc503d906fe56c | |
| parent | 316bb93b2b781ef5e37adc23a28db06ca363472a (diff) | |
| download | perlweeklychallenge-club-ef6b617f44a1d0998e767bdea638c671b4180e01.tar.gz perlweeklychallenge-club-ef6b617f44a1d0998e767bdea638c671b4180e01.tar.bz2 perlweeklychallenge-club-ef6b617f44a1d0998e767bdea638c671b4180e01.zip | |
Small fix
| -rw-r--r-- | challenge-125/simon-proctor/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-125/simon-proctor/raku/ch-1.raku b/challenge-125/simon-proctor/raku/ch-1.raku index c580a2e678..1d911c8085 100644 --- a/challenge-125/simon-proctor/raku/ch-1.raku +++ b/challenge-125/simon-proctor/raku/ch-1.raku @@ -28,7 +28,7 @@ sub py-triples(UInt $N) { #return (@odds X, @odds).hyper.grep( -> ($m, $n) { $m > $n } ).map( -> ( $m, $n ) { note ($m,$n); ( ($m * $n), ( ($m²-$n²)/2), ( ($m² + $n²)/2 ) ) } ).grep( -> $pos { note $pos; $N ~~ $pos.any; } ); - my $as = start ((1..^$N) X, (1..^$N²)).hyper + my $as = start ((1..^$N) X, (1..^$N)).hyper .grep( -> ($a,$b) { $b >= $a } ) .grep( -> ($a,$b) { $N² == $a² + $b² } ) .map( -> ($a, $b) { ( $a, $b, $N ).sort } ); |