diff options
| -rw-r--r-- | challenge-247/wambash/raku/ch-2.raku | 22 |
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 +} |