Merge pull request #12277 from wlmb/challenges

Solve PWC328

3 files changed, 42 insertions, 0 deletions

diff --git a/challenge-328/wlmb/blog.txt b/challenge-328/wlmb/blog.txt
new file mode 100644
index 0000000000..5ed44b71c3
--- /dev/null
+++ b/challenge-328/wlmb/blog.txt
@@ -0,0 +1 @@
+https://wlmb.github.io/2025/07/03/PWC328/
diff --git a/challenge-328/wlmb/perl/ch-1.pl b/challenge-328/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..9cffa7b2a8
--- /dev/null
+++ b/challenge-328/wlmb/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 328
+# Task 1:  Replace all ?
+#
+# See https://wlmb.github.io/2025/07/03/PWC328/#task-1-replace-all-?
+
+use v5.36;
+die <<~"FIN" unless @ARGV;
+    Usage: $0 S1 S2...
+    to replace ? by lowercase letters in the lowercase strings S1 S2...
+    so that no letter repeats.
+    FIN
+for(@ARGV){
+    say "Expected only lowercase letters and ?'s" unless /^[a-z?]+$/;
+    say("Expected no repeating letters in string: $_"), next if /([a-z])\1/;
+    my $in=$_;
+    1 while s/(.?)(\?)(.?)/replace($1, $3)/e;
+    say "$in -> $_";
+}
+sub replace($x, $z){
+    my $y="a";
+    ++$y while $y eq $x or $y eq $z;
+    "$1$y$3"
+}
diff --git a/challenge-328/wlmb/perl/ch-2.pl b/challenge-328/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..3c1bb357c5
--- /dev/null
+++ b/challenge-328/wlmb/perl/ch-2.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 328
+# Task 2:  Good String
+#
+# See https://wlmb.github.io/2025/07/03/PWC328/#task-2-good-string
+use v5.36;
+die <<~"FIN" unless @ARGV;
+    Usage: $0 S1 S2...
+    to convert the strings S1 S2... into good strings
+    without any lowercase (uppercase) letter adjacent to the corresponding
+    uppercase (lowercase) letter.
+    FIN
+for(@ARGV){
+    my $in=$_;
+    1 while(s/([[:alpha:]])(??{my $l=lc($1); $l eq $1? uc($1):lc($1)})//);
+    say"$in->$_";
+}