From 554b4f8f85993eb1f6bff346f45d4add7817b3f5 Mon Sep 17 00:00:00 2001
From: Util <bruce.gray@acm.org>
Date: Sun, 28 Jan 2024 17:55:27 -0600
Subject: Add TWC 253 solutions by Bruce Gray (in Raku only).

---
 challenge-253/bruce-gray/raku/ch-1.raku | 11 +++++++++++
 challenge-253/bruce-gray/raku/ch-2.raku | 28 ++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100644 challenge-253/bruce-gray/raku/ch-1.raku
 create mode 100644 challenge-253/bruce-gray/raku/ch-2.raku

diff --git a/challenge-253/bruce-gray/raku/ch-1.raku b/challenge-253/bruce-gray/raku/ch-1.raku
new file mode 100644
index 0000000000..0fafe80d5d
--- /dev/null
+++ b/challenge-253/bruce-gray/raku/ch-1.raku
@@ -0,0 +1,11 @@
+sub task1 { @^words».split($^seperator, :skip-empty).flat }
+
+
+my @tests =
+    ( '.' , <one.two.three four.five six> , <one two three four five six> ),
+    ( '$' , <$perl$$ $$raku$>             , <perl raku> ),
+;
+use Test; plan +@tests;
+for @tests ->      ( $in_sep, @in_strings,   @expected ) {
+    is-deeply task1( $in_sep, @in_strings ), @expected;
+}
diff --git a/challenge-253/bruce-gray/raku/ch-2.raku b/challenge-253/bruce-gray/raku/ch-2.raku
new file mode 100644
index 0000000000..5fd155003c
--- /dev/null
+++ b/challenge-253/bruce-gray/raku/ch-2.raku
@@ -0,0 +1,28 @@
+sub task2 { @^matrix.sort: :k, { +.grep(1) } }
+
+
+my @tests =
+    (
+        (
+            (1, 1, 0, 0, 0),
+            (1, 1, 1, 1, 0),
+            (1, 0, 0, 0, 0),
+            (1, 1, 0, 0, 0),
+            (1, 1, 1, 1, 1),
+        ),
+        (2, 0, 3, 1, 4),
+    ),
+    (
+        (
+            (1, 0, 0, 0),
+            (1, 1, 1, 1),
+            (1, 0, 0, 0),
+            (1, 0, 0, 0),
+        ),
+        (0, 2, 3, 1),
+    ),
+;
+use Test; plan +@tests;
+for @tests -> ( @matrix, @expected ) {
+    is-deeply task2( @matrix ), @expected;
+}
-- 
cgit