From c5bb7a9eecf6f76df3eb782b7db1a34a3dc0416b Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 Apr 2024 05:49:21 +0000
Subject: Challenge 263 Solutions (Raku)

---
 challenge-263/mark-anderson/raku/ch-1.raku | 11 +++++++++++
 challenge-263/mark-anderson/raku/ch-2.raku | 15 +++++++++++++++
 2 files changed, 26 insertions(+)
 create mode 100644 challenge-263/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-263/mark-anderson/raku/ch-2.raku

diff --git a/challenge-263/mark-anderson/raku/ch-1.raku b/challenge-263/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..d029665e08
--- /dev/null
+++ b/challenge-263/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+is target-index((1,5,3,2,4,2), 2), (1,2); 
+is target-index((1,2,4,3,5),   6), ();
+is target-index((5,3,2,4,2,1), 4), (4);
+
+sub target-index(@ints, $k)
+{
+    @ints.sort.grep($k, :k)
+}
diff --git a/challenge-263/mark-anderson/raku/ch-2.raku b/challenge-263/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..c3921fc60c
--- /dev/null
+++ b/challenge-263/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,15 @@
+#!/usr/bin/env raku
+use Test;
+
+is merge-items([[1,1],[2,1],[3,2]],       [[2,2],[1,3]]), ((1,4),(2,3),(3,2));
+is merge-items([[1,2],[2,3],[1,3],[3,2]], [[3,1],[1,3]]), ((1,8),(2,3),(3,3));
+is merge-items([[1,1],[2,2],[3,3]],       [[2,3],[2,4]]), ((1,1),(2,9),(3,3));
+
+sub merge-items($i1, $i2)
+{
+    given (|$i1, |$i2).classify({.head}, :as{.tail})
+    {
+        .{.keys} = .values>>.sum;
+        sort .keys Z .values
+    }
+}
-- 
cgit 


From 0a90049d4a946b8662a3edcf0d9d7a0bff9a3289 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 Apr 2024 05:56:09 +0000
Subject: Challenge 263 Solutions (Raku)

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

diff --git a/challenge-263/mark-anderson/raku/ch-2.raku b/challenge-263/mark-anderson/raku/ch-2.raku
index c3921fc60c..836c4d32f6 100644
--- a/challenge-263/mark-anderson/raku/ch-2.raku
+++ b/challenge-263/mark-anderson/raku/ch-2.raku
@@ -1,9 +1,9 @@
 #!/usr/bin/env raku
 use Test;
 
-is merge-items([[1,1],[2,1],[3,2]],       [[2,2],[1,3]]), ((1,4),(2,3),(3,2));
-is merge-items([[1,2],[2,3],[1,3],[3,2]], [[3,1],[1,3]]), ((1,8),(2,3),(3,3));
-is merge-items([[1,1],[2,2],[3,3]],       [[2,3],[2,4]]), ((1,1),(2,9),(3,3));
+is-deeply merge-items([[1,1],[2,1],[3,2]],       [[2,2],[1,3]]), ((1,4),(2,3),(3,2));
+is-deeply merge-items([[1,2],[2,3],[1,3],[3,2]], [[3,1],[1,3]]), ((1,8),(2,3),(3,3));
+is-deeply merge-items([[1,1],[2,2],[3,3]],       [[2,3],[2,4]]), ((1,1),(2,9),(3,3));
 
 sub merge-items($i1, $i2)
 {
-- 
cgit 


From ee575f05f5a82039837b4e8a86fb7f285649af7a Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 Apr 2024 06:01:01 +0000
Subject: Challenge 263 Solutions (Raku)

---
 challenge-263/mark-anderson/raku/ch-1.raku | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-263/mark-anderson/raku/ch-1.raku b/challenge-263/mark-anderson/raku/ch-1.raku
index d029665e08..32b97979a5 100644
--- a/challenge-263/mark-anderson/raku/ch-1.raku
+++ b/challenge-263/mark-anderson/raku/ch-1.raku
@@ -1,9 +1,9 @@
 #!/usr/bin/env raku
 use Test;
 
-is target-index((1,5,3,2,4,2), 2), (1,2); 
-is target-index((1,2,4,3,5),   6), ();
-is target-index((5,3,2,4,2,1), 4), (4);
+is-deeply target-index((1,5,3,2,4,2), 2), (1,2); 
+is-deeply target-index((1,2,4,3,5),   6), ();
+is-deeply target-index((5,3,2,4,2,1), 4), (4,);
 
 sub target-index(@ints, $k)
 {
-- 
cgit 


From 75ed0a6a89810c3ef15322076d8f6b1a3c175ec3 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 Apr 2024 06:49:04 +0000
Subject: Challenge 263 Solutions (Raku)

---
 challenge-263/mark-anderson/raku/ch-2.raku | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-263/mark-anderson/raku/ch-2.raku b/challenge-263/mark-anderson/raku/ch-2.raku
index 836c4d32f6..e303e361f3 100644
--- a/challenge-263/mark-anderson/raku/ch-2.raku
+++ b/challenge-263/mark-anderson/raku/ch-2.raku
@@ -9,7 +9,6 @@ sub merge-items($i1, $i2)
 {
     given (|$i1, |$i2).classify({.head}, :as{.tail})
     {
-        .{.keys} = .values>>.sum;
-        sort .keys Z .values
+        sort .keys Z .values>>.sum
     }
 }
-- 
cgit