From 4637bbd0b0f53074ffed0d9c5ebba1001d70b042 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Tue, 6 Jun 2023 01:23:00 +0000
Subject: Challenge 220 Solutions (Raku)

---
 challenge-220/mark-anderson/raku/ch-2.raku | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/challenge-220/mark-anderson/raku/ch-2.raku b/challenge-220/mark-anderson/raku/ch-2.raku
index 302f0b9b63..53841bcf10 100644
--- a/challenge-220/mark-anderson/raku/ch-2.raku
+++ b/challenge-220/mark-anderson/raku/ch-2.raku
@@ -17,9 +17,7 @@ sub squareful(+@a)
 
     my $squares := (0..$s Z* 0..$s).List;
 
-    gather for @a.permutations.unique(with => &[eqv])
-    {
-        .take if .rotor(2 => -1)>>.sum (<=) $squares
-    }
+    @a.permutations.unique(with => &[eqv])
+                   .grep({ .rotor(2 => -1)>>.sum (<=) $squares });
 }
 =end alternate
-- 
cgit