Merge pull request #9331 from wlmb/challenges

Solve PWC250

3 files changed, 25 insertions, 0 deletions

diff --git a/challenge-250/wlmb/blog.txt b/challenge-250/wlmb/blog.txt
new file mode 100644
index 0000000000..2e410449a5
--- /dev/null
+++ b/challenge-250/wlmb/blog.txt
@@ -0,0 +1 @@
+https://wlmb.github.io/2024/01/01/PWC250/
diff --git a/challenge-250/wlmb/perl/ch-1.pl b/challenge-250/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..426478d74b
--- /dev/null
+++ b/challenge-250/wlmb/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 250
+# Task 1:  Smallest Index
+#
+# See https://wlmb.github.io/2024/01/01/PWC250/#task-1-smallest-index
+use v5.36;
+use List::Util qw(first);
+die <<~"FIN" unless @ARGV;
+    Usage: $0 N0 [N1...]
+    to find first index i for which N_i%10==i
+    FIN
+say "@ARGV -> ", (first {$ARGV[$_]%10==$_} @ARGV)//-1;
diff --git a/challenge-250/wlmb/perl/ch-2.pl b/challenge-250/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..125b609d47
--- /dev/null
+++ b/challenge-250/wlmb/perl/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 250
+# Task 2:  Alphanumeric String Value
+#
+# See https://wlmb.github.io/2024/01/01/PWC250/#task-2-alphanumeric-string-value
+use v5.36;
+use List::Util qw(max);
+die <<~"FIN" unless @ARGV;
+    Usage: $0 S0 [S1...]
+    to find the maximum \"value\" of the strings S0 S1...
+    FIN
+say "@ARGV -> ", max map {/^[+-]?\d+$/?0+$_:length $_} @ARGV;