Solve PWC289

3 files changed, 32 insertions, 0 deletions

diff --git a/challenge-289/wlmb/blog.txt b/challenge-289/wlmb/blog.txt
new file mode 100644
index 0000000000..e057d21c10
--- /dev/null
+++ b/challenge-289/wlmb/blog.txt
@@ -0,0 +1 @@
+https://wlmb.github.io/2024/09/29/PWC289/
diff --git a/challenge-289/wlmb/perl/ch-1.pl b/challenge-289/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..8a960d83cf
--- /dev/null
+++ b/challenge-289/wlmb/perl/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 289
+# Task 1:  Third Maximum
+#
+# See https://wlmb.github.io/2024/09/29/PWC289/#task-1-third-maximum
+use v5.36;
+die <<~"FIN" unless @ARGV;
+    Usage: $0 N1 N2...
+    to obtain the third maximum of the sequence of numbers N1 N2...
+    FIN
+my %count;
+++$count{$_} for @ARGV;
+my @sorted=sort {$b cmp $a} keys %count;
+say "@ARGV -> ", $sorted[2]//$sorted[0];
diff --git a/challenge-289/wlmb/perl/ch-2.pl b/challenge-289/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..bf799e5ac0
--- /dev/null
+++ b/challenge-289/wlmb/perl/ch-2.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 289
+# Task 2:  Jumbled Letters
+#
+# See https://wlmb.github.io/2024/09/29/PWC289/#task-2-jumbled-letters
+use v5.36;
+$/=undef; # slurp
+sub randomize($string){
+    my $randomized="";
+    $randomized.=substr $string, (rand length $string), 1, "" while length $string;
+    $randomized
+}
+for(<>){
+    my $original=$_;
+    s/(\w)(\w*)(\w)/$1.(randomize $2).$3/mge;
+    say "$original->\n$_";
+}