Merge pull request #10507 from andemark/challenge-280

Challenge 280 Solutions (Raku)

2 files changed, 23 insertions, 0 deletions

diff --git a/challenge-280/mark-anderson/raku/ch-1.raku b/challenge-280/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..7d84ee582d
--- /dev/null
+++ b/challenge-280/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+is twice-appearance("acbddbca"), "d";
+is twice-appearance("abccd"),    "c";
+is twice-appearance("abcdabbb"), "a";
+
+sub twice-appearance($str)
+{
+    $str.comb.repeated.first
+}
diff --git a/challenge-280/mark-anderson/raku/ch-2.raku b/challenge-280/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..3213325cda
--- /dev/null
+++ b/challenge-280/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+use Test;
+
+is count-asterisks("p|*e*rl|w**e|*ekly|"),           2;
+is count-asterisks("perl"),                          0;
+is count-asterisks("th|ewe|e**|k|l***ych|alleng|e"), 5;
+is count-asterisks("|p|*e*rl|w**e|*ekly|"),          3;
+
+sub count-asterisks($str)
+{
+    $str.split("|")[0,2...*].comb("*").elems
+}