diff options
| -rw-r--r-- | challenge-125/simon-proctor/raku/ch-1.raku | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/challenge-125/simon-proctor/raku/ch-1.raku b/challenge-125/simon-proctor/raku/ch-1.raku index e5dc16521a..5caf5d2c2d 100644 --- a/challenge-125/simon-proctor/raku/ch-1.raku +++ b/challenge-125/simon-proctor/raku/ch-1.raku @@ -26,15 +26,6 @@ sub py-triples(UInt $N) { my @odds = (1,*+2...* >= $N).cache; - my @pairs = (@odds X, @odds).grep( -> ($m, $n) { $m > $n } ); - - for @pairs -> ( $m, $n ) { - my $pos = ( ($m * $n), ( ($m²-$n²)/2), ( ($m² + $n²)/2 ) ); - if ( $N ~~ $pos.any ) { - push @out, $pos; - } - } - - return @out; + return (@odds X, @odds).hyper.grep( -> ($m, $n) { $m > $n } ).map( -> ( $m, $n ) { ( ($m * $n), ( ($m²-$n²)/2), ( ($m² + $n²)/2 ) ) } ).grep( -> $pos { $N ~~ $pos.any; } ); } |