Merge pull request #9274 from wambash/challenge-week-247

solution week 247-2

1 files changed, 22 insertions, 0 deletions

diff --git a/challenge-247/wambash/raku/ch-2.raku b/challenge-247/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..9a32a12d4f
--- /dev/null
+++ b/challenge-247/wambash/raku/ch-2.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+use v6.e.PREVIEW;
+
+sub most-frequent-letter-pair ($s) {
+    $s
+    andthen .comb: 2 => -1
+    andthen .Bag
+    andthen .maxpairs
+    andthen .map: *.key
+    andthen .min
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is most-frequent-letter-pair('abcdbca'),'bc';
+    is most-frequent-letter-pair('cdeabeabfcdfabgcd'),'ab';
+    done-testing;
+}
+
+multi MAIN ($s) {
+    say most-frequent-letter-pair $s
+}