From 07e12891d5a65f6dad9d73956757c127b1846a3d Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 5 Feb 2024 09:38:00 +0000
Subject: Challenge 255 Solutions (Raku)

---
 challenge-255/mark-anderson/raku/ch-1.raku | 11 +++++++++++
 challenge-255/mark-anderson/raku/ch-2.raku | 12 ++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 challenge-255/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-255/mark-anderson/raku/ch-2.raku

diff --git a/challenge-255/mark-anderson/raku/ch-1.raku b/challenge-255/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..59ed24c2b2
--- /dev/null
+++ b/challenge-255/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+is odd-character("Perl", "Preel"),     "e";
+is odd-character("Weekly", "Weeakly"), "a";
+is odd-character("Box", "Boxy"),       "y";
+
+sub odd-character($s, $t)
+{
+    $t.comb.Bag (-) $s.comb.Bag
+}
diff --git a/challenge-255/mark-anderson/raku/ch-2.raku b/challenge-255/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..768692ae7f
--- /dev/null
+++ b/challenge-255/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply most-freq-word("Joe hit a ball, the hit ball flew far after it was hit.", "hit"), ("ball",);
+is-deeply most-freq-word("Perl and Raku belong to the same family. Perl is the most popular language in the weekly challenge.", "the"), ("Perl",);
+
+sub most-freq-word($p, $w)
+{
+    my $b = $p.split(/<[\W]>/, :skip-empty).BagHash;
+    $b{$w}:delete;
+    $b.maxpairs>>.key
+}
-- 
cgit