From 5766fd2fb7aa1d680be78eaf84a111433078e0df Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Fri, 22 Dec 2023 16:11:19 +0100
Subject: solution week 247-2

---
 challenge-247/wambash/raku/ch-2.raku | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 challenge-247/wambash/raku/ch-2.raku

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
+}
-- 
cgit