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

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

diff --git a/challenge-220/mark-anderson/raku/ch-1.raku b/challenge-220/mark-anderson/raku/ch-1.raku
index c34c232700..9f4ce69b18 100644
--- a/challenge-220/mark-anderson/raku/ch-1.raku
+++ b/challenge-220/mark-anderson/raku/ch-1.raku
@@ -2,9 +2,9 @@
 use Test;
 
 is-deeply common-characters(<Perl Rust Raku>),  ("r",);
-is-deeply common-characters(<love live leave>), < e l v >;
+is-deeply common-characters(<love live leave>), <e l v>;
 
 sub common-characters
 {
-    sort .keys given [(&)] @^a>>.comb>>.lc 
+    sort .keys given [(&)] @^a>>.lc>>.comb 
 }
diff --git a/challenge-220/mark-anderson/raku/ch-2.raku b/challenge-220/mark-anderson/raku/ch-2.raku
index 5c8b5d1686..302f0b9b63 100644
--- a/challenge-220/mark-anderson/raku/ch-2.raku
+++ b/challenge-220/mark-anderson/raku/ch-2.raku
@@ -6,10 +6,8 @@ is-deeply squareful(2, 2, 2),  ((2, 2, 2),);
 
 sub squareful(+@a)
 {
-    gather for @a.permutations.unique(with => &[eqv])
-    {
-        .take if all(.rotor(2 => -1)).sum.sqrt.narrow ~~ UInt 
-    }
+    @a.permutations.unique(with => &[eqv])
+                   .grep({ all(.rotor(2 => -1)).sum.sqrt.narrow ~~ UInt });
 }
 
 =begin alternate
-- 
cgit