diff options
| author | Scimon <simon.proctor@gmail.com> | 2021-08-10 15:40:59 +0100 |
|---|---|---|
| committer | Scimon <simon.proctor@gmail.com> | 2021-08-10 15:40:59 +0100 |
| commit | 316bb93b2b781ef5e37adc23a28db06ca363472a (patch) | |
| tree | 2c46a0d63dfd7c4b2de28f9f0c536cf2f15a7b13 /challenge-125 | |
| parent | cb5a47e90829ac7089033d1c06d316b68ce7e986 (diff) | |
| download | perlweeklychallenge-club-316bb93b2b781ef5e37adc23a28db06ca363472a.tar.gz perlweeklychallenge-club-316bb93b2b781ef5e37adc23a28db06ca363472a.tar.bz2 perlweeklychallenge-club-316bb93b2b781ef5e37adc23a28db06ca363472a.zip | |
Update to challenge 1
Diffstat (limited to 'challenge-125')
| -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 348b00d445..c580a2e678 100644 --- a/challenge-125/simon-proctor/raku/ch-1.raku +++ b/challenge-125/simon-proctor/raku/ch-1.raku @@ -33,7 +33,7 @@ sub py-triples(UInt $N) { .grep( -> ($a,$b) { $N² == $a² + $b² } ) .map( -> ($a, $b) { ( $a, $b, $N ).sort } ); - my $cs = start (($N^..($N² div 2)) X, ($N^..($N² div 2)+1)).hyper + my $cs = start ((1..($N² div 2)) X, (1..($N² div 2)+1)).hyper .grep( -> ($a,$c) { $c >= $a } ) .grep( -> ($a,$c) { $N² + $a² == $c² } ) .map( -> ($a, $c) { ( $a, $N, $c ).sort } ); |