aboutsummaryrefslogtreecommitdiff
path: root/challenge-256
diff options
context:
space:
mode:
authorMohammad S Anwar <mohammad.anwar@yahoo.com>2024-02-19 04:17:45 +0000
committerMohammad S Anwar <mohammad.anwar@yahoo.com>2024-02-19 04:17:45 +0000
commita1fe0a6dbffb8263ebcd0fe428c71c212a8760d1 (patch)
tree399a14bde3a0985208ee2eeeb91b3282a82bb3e2 /challenge-256
parent210520887f061e7522aaccd8676da0ec91dcb0e8 (diff)
downloadperlweeklychallenge-club-a1fe0a6dbffb8263ebcd0fe428c71c212a8760d1.tar.gz
perlweeklychallenge-club-a1fe0a6dbffb8263ebcd0fe428c71c212a8760d1.tar.bz2
perlweeklychallenge-club-a1fe0a6dbffb8263ebcd0fe428c71c212a8760d1.zip
- Added solutions by Clifton Wood.
Diffstat (limited to 'challenge-256')
-rw-r--r--challenge-256/clifton-wood/raku/ch-1.raku7
-rw-r--r--challenge-256/clifton-wood/raku/ch-2.raku7
2 files changed, 14 insertions, 0 deletions
diff --git a/challenge-256/clifton-wood/raku/ch-1.raku b/challenge-256/clifton-wood/raku/ch-1.raku
new file mode 100644
index 0000000000..6712c5a7d0
--- /dev/null
+++ b/challenge-256/clifton-wood/raku/ch-1.raku
@@ -0,0 +1,7 @@
+sub max-pair (@words) {
+ @words.classify({ ($_, .flip).sort.join }).grep( *.value > 1 ).elems;
+}
+
+<ab de ed bc >.&max-pair.say;
+<aa ba cd ed >.&max-pair.say;
+<uv qp st vu mn pq>.&max-pair.say;
diff --git a/challenge-256/clifton-wood/raku/ch-2.raku b/challenge-256/clifton-wood/raku/ch-2.raku
new file mode 100644
index 0000000000..5e7bc8223a
--- /dev/null
+++ b/challenge-256/clifton-wood/raku/ch-2.raku
@@ -0,0 +1,7 @@
+sub merge ($s1, $s2) {
+ roundrobin($s1.comb, $s2.comb).flat.join
+}
+
+merge("abcd", "1234").say;
+merge("abc", "12345").say;
+merge("abcde", "123").say;