From cb6c1ef1454dbc182166adbeef5fd069d5c441e5 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 May 2023 07:49:21 +0000
Subject: Challenge 215 Solutions (Raku)

---
 challenge-215/mark-anderson/raku/ch-1.raku | 12 ++++++++++++
 challenge-215/mark-anderson/raku/ch-2.raku | 13 +++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 challenge-215/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-215/mark-anderson/raku/ch-2.raku

diff --git a/challenge-215/mark-anderson/raku/ch-1.raku b/challenge-215/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..3a6f8ff5ca
--- /dev/null
+++ b/challenge-215/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+use Adverb::Eject;
+use Test;
+
+is odd-one-out(<abc xyz tsu>), 1;
+is odd-one-out(<rat cab dad>), 3;
+is odd-one-out(<x y z>),       0;
+
+sub odd-one-out(*@a)
+{
+    +@a.grep({ ![le] .comb }, :k)
+}
diff --git a/challenge-215/mark-anderson/raku/ch-2.raku b/challenge-215/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..946f31161d
--- /dev/null
+++ b/challenge-215/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+use Test;
+
+ok  number-placement(<1 0 0 0 1>,         1);
+nok number-placement(<1 0 0 0 1>,         2);
+ok  number-placement(<1 0 0 0 0 0 0 0 1>, 3);
+ok  number-placement(<1 1 0 0 1 0 0 0 1>, 1);
+nok number-placement(<1 1 0 0 1 0 0 0 1>, 2);
+
+sub number-placement($list, $count)
+{
+    $list.join ~~ m:g/ 00 <before 0> / >= $count
+}
-- 
cgit 


From e1a17a0b964770ec42924dd64fb571e354fd47dd Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 May 2023 07:52:14 +0000
Subject: Challenge 215 Solutions (Raku)

---
 challenge-215/mark-anderson/raku/ch-1.raku | 1 -
 1 file changed, 1 deletion(-)

diff --git a/challenge-215/mark-anderson/raku/ch-1.raku b/challenge-215/mark-anderson/raku/ch-1.raku
index 3a6f8ff5ca..3767e104a3 100644
--- a/challenge-215/mark-anderson/raku/ch-1.raku
+++ b/challenge-215/mark-anderson/raku/ch-1.raku
@@ -1,5 +1,4 @@
 #!/usr/bin/env raku
-use Adverb::Eject;
 use Test;
 
 is odd-one-out(<abc xyz tsu>), 1;
-- 
cgit 


From 75da7397fe039b92f760d5795e9073f5f4ab7f71 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 May 2023 07:59:05 +0000
Subject: Challenge 215 Solutions (Raku)

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

diff --git a/challenge-215/mark-anderson/raku/ch-1.raku b/challenge-215/mark-anderson/raku/ch-1.raku
index 3767e104a3..00be880f73 100644
--- a/challenge-215/mark-anderson/raku/ch-1.raku
+++ b/challenge-215/mark-anderson/raku/ch-1.raku
@@ -7,5 +7,5 @@ is odd-one-out(<x y z>),       0;
 
 sub odd-one-out(*@a)
 {
-    +@a.grep({ ![le] .comb }, :k)
+    + @a.grep({ ![le] .comb })
 }
-- 
cgit 


From c0d1d8f78cbe131fa457e25e9a08f84a11975573 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 1 May 2023 09:56:04 +0000
Subject: Challenge 215 Solutions (Raku)

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

diff --git a/challenge-215/mark-anderson/raku/ch-2.raku b/challenge-215/mark-anderson/raku/ch-2.raku
index 946f31161d..c9d8fdccb5 100644
--- a/challenge-215/mark-anderson/raku/ch-2.raku
+++ b/challenge-215/mark-anderson/raku/ch-2.raku
@@ -9,5 +9,5 @@ nok number-placement(<1 1 0 0 1 0 0 0 1>, 2);
 
 sub number-placement($list, $count)
 {
-    $list.join ~~ m:g/ 00 <before 0> / >= $count
+    $list.join ~~ m:g/ 00 <?before 0> / >= $count
 }
-- 
cgit