From f6f9fa776f9dc5bd59f7d63ff97625fbea3c3f1a Mon Sep 17 00:00:00 2001
From: Scimon Proctor <simon.proctor@gmail.com>
Date: Mon, 9 Aug 2021 14:54:59 +0100
Subject: Hyper for the win

---
 challenge-125/simon-proctor/raku/ch-1.raku | 11 +----------
 1 file changed, 1 insertion(+), 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; } );
 }
   
-- 
cgit