Merge pull request #10274 from wlmb/challenges

Solve PWC273

3 files changed, 31 insertions, 0 deletions

diff --git a/challenge-273/wlmb/blog.txt b/challenge-273/wlmb/blog.txt
new file mode 100644
index 0000000000..cc5ace7ebe
--- /dev/null
+++ b/challenge-273/wlmb/blog.txt
@@ -0,0 +1 @@
+https://wlmb.github.io/2024/06/10/PWC273/
diff --git a/challenge-273/wlmb/perl/ch-1.pl b/challenge-273/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..89fdd02331
--- /dev/null
+++ b/challenge-273/wlmb/perl/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 273
+# Task 1:  Percentage of Character
+#
+# See https://wlmb.github.io/2024/06/10/PWC273/#task-1-percentage-of-character
+use v5.36;
+use experimental "for_list";
+die <<~"FIN" unless @ARGV && @ARGV%2==0;
+    Usage: $0 S1 C1 S2 W2...
+    to find the percentage of character Ci in string Si.
+    FIN
+for my ($str, $chr)(@ARGV){
+    my $length=length $str;
+    my $matches=0+grep{ lc($_) eq lc($chr)} split "", $str;
+    my $percentage = int(.5+100*$matches/$length);
+    say "str=$str, chr=$chr -> $percentage";
+}
diff --git a/challenge-273/wlmb/perl/ch-2.pl b/challenge-273/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..0af7b1ec6c
--- /dev/null
+++ b/challenge-273/wlmb/perl/ch-2.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 273
+# Task 2:  B After A
+#
+# See https://wlmb.github.io/2024/06/10/PWC273/#task-2-b-after-a
+use v5.36;
+die <<~"FIN" unless @ARGV;
+    Usage: $0 S1 S2...
+    to test the strings S1 S2... for B after A
+    FIN
+for(@ARGV){
+    say "$_ -> ", /^[^b]*b[^a]*$/i?"true":"false"
+}