Merge pull request #12391 from wlmb/challenges

Solve PWC331

3 files changed, 45 insertions, 0 deletions

diff --git a/challenge-331/wlmb/blog.txt b/challenge-331/wlmb/blog.txt
new file mode 100644
index 0000000000..837eeaee1c
--- /dev/null
+++ b/challenge-331/wlmb/blog.txt
@@ -0,0 +1 @@
+https://wlmb.github.io/2025/07/21/PWC331/
diff --git a/challenge-331/wlmb/perl/ch-1.pl b/challenge-331/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..f49164cec9
--- /dev/null
+++ b/challenge-331/wlmb/perl/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 331
+# Task 1:  Last Word
+#
+# See https://wlmb.github.io/2025/07/21/PWC331/#task-1-last-word
+use v5.36;
+die <<~"FIN" unless @ARGV;
+    Usage: $0 S1 S2...
+    to find the length of the last word of the strings Sn
+    FIN
+for(@ARGV){
+    say "$_ -> ",        # print the result
+	length           # compute the length
+	[split " "]      # separate into words
+	->[-1]           # choose last word
+	=~s/\W//gr       # remove non-word characters
+}
diff --git a/challenge-331/wlmb/perl/ch-2.pl b/challenge-331/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..51f3e6f145
--- /dev/null
+++ b/challenge-331/wlmb/perl/ch-2.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 331
+# Task 2:  Buddy Strings
+#
+# See https://wlmb.github.io/2025/07/21/PWC331/#task-2-buddy-strings
+use v5.36;
+die <<~"FIN" unless @ARGV && @ARGV%2==0;
+    Usage: $0 S1 T1 S2 T2...
+    to find if target string Tn may be obtained from the source string Sn
+    by a single permutation of two characters.
+    FIN
+for my($source, $target)(@ARGV){
+    say"$source $target -> ",
+	(my $joined="$source$;$target")        # join source and target using special character
+	=~                                     # match to
+	/^                                     # start of source
+        (.*)                                   # arbitrary string (group 1)
+        (.)                                    # a single character to permute (group 2)
+        (.*)                                   # arbitrary string (group 3)
+        (.)                                    # second character to permute (group 4)
+        (.*)                                   # arbitrary string (group 5)
+        $;                                     # end of source
+        \1\4\3\2\5                             # target is source with \2 and \4 permuted
+        $                                      # end of target
+        /x
+	?"True":"False";
+}