2 files changed, 24 insertions, 0 deletions
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..00be880f73
--- /dev/null
+++ b/challenge-215/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+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 })
+}
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..c9d8fdccb5
--- /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
+}