From 00cf4b917c093cced6ec5e3a05a975fae65b9c76 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 5 Jun 2023 12:52:21 +0000
Subject: Challenge 220 Solutions (Raku)

---
 challenge-220/mark-anderson/raku/ch-1.raku | 10 ++++++++++
 challenge-220/mark-anderson/raku/ch-2.raku | 27 +++++++++++++++++++++++++++
 2 files changed, 37 insertions(+)
 create mode 100644 challenge-220/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-220/mark-anderson/raku/ch-2.raku

diff --git a/challenge-220/mark-anderson/raku/ch-1.raku b/challenge-220/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..c34c232700
--- /dev/null
+++ b/challenge-220/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply common-characters(<Perl Rust Raku>),  ("r",);
+is-deeply common-characters(<love live leave>), < e l v >;
+
+sub common-characters
+{
+    sort .keys given [(&)] @^a>>.comb>>.lc 
+}
diff --git a/challenge-220/mark-anderson/raku/ch-2.raku b/challenge-220/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..11ef39a5ef
--- /dev/null
+++ b/challenge-220/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply squareful(1, 17, 8), ((1, 8, 17), (17, 8, 1));
+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 
+    }
+}
+
+=begin alternate
+sub squareful(+@a)
+{
+    my $s = @a.sort.tail(2).sum;
+
+    my $squares := (0..$s Z* 0..$s).List;
+
+    gather for @a.permutations.unique(with => &[eqv])
+    {
+        .take if .rotor(2 => -1)>>.sum (<) $squares
+    }
+}
+=end alternate
-- 
cgit 


From 0ad134511da6abc0017fea244ce23cdb76f49a1d Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 5 Jun 2023 13:11:05 +0000
Subject: Challenge 220 Solutions (Raku)

---
 challenge-220/mark-anderson/raku/ch-2.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-220/mark-anderson/raku/ch-2.raku b/challenge-220/mark-anderson/raku/ch-2.raku
index 11ef39a5ef..5c8b5d1686 100644
--- a/challenge-220/mark-anderson/raku/ch-2.raku
+++ b/challenge-220/mark-anderson/raku/ch-2.raku
@@ -21,7 +21,7 @@ sub squareful(+@a)
 
     gather for @a.permutations.unique(with => &[eqv])
     {
-        .take if .rotor(2 => -1)>>.sum (<) $squares
+        .take if .rotor(2 => -1)>>.sum (<=) $squares
     }
 }
 =end alternate
-- 
cgit 


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 


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 


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

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

diff --git a/challenge-220/mark-anderson/raku/ch-2.raku b/challenge-220/mark-anderson/raku/ch-2.raku
index 53841bcf10..99b1091536 100644
--- a/challenge-220/mark-anderson/raku/ch-2.raku
+++ b/challenge-220/mark-anderson/raku/ch-2.raku
@@ -7,7 +7,7 @@ is-deeply squareful(2, 2, 2),  ((2, 2, 2),);
 sub squareful(+@a)
 {
     @a.permutations.unique(with => &[eqv])
-                   .grep({ all(.rotor(2 => -1)).sum.sqrt.narrow ~~ UInt });
+                   .grep({ all(.rotor(2 => -1)).sum.sqrt.narrow ~~ UInt })
 }
 
 =begin alternate
@@ -18,6 +18,6 @@ sub squareful(+@a)
     my $squares := (0..$s Z* 0..$s).List;
 
     @a.permutations.unique(with => &[eqv])
-                   .grep({ .rotor(2 => -1)>>.sum (<=) $squares });
+                   .grep({ .rotor(2 => -1)>>.sum (<=) $squares })
 }
 =end alternate
-- 
cgit