From e3a92ba33f405797167d4646efb4f76c5d23ed7e Mon Sep 17 00:00:00 2001
From: Luis Mochan <mochan@fis.unam.mx>
Date: Mon, 5 Feb 2024 08:53:39 -0600
Subject: Solve PWC255

---
 challenge-255/wlmb/blog.txt     |  1 +
 challenge-255/wlmb/perl/ch-1.pl | 19 +++++++++++++++++++
 challenge-255/wlmb/perl/ch-2.pl | 16 ++++++++++++++++
 3 files changed, 36 insertions(+)
 create mode 100644 challenge-255/wlmb/blog.txt
 create mode 100755 challenge-255/wlmb/perl/ch-1.pl
 create mode 100755 challenge-255/wlmb/perl/ch-2.pl

diff --git a/challenge-255/wlmb/blog.txt b/challenge-255/wlmb/blog.txt
new file mode 100644
index 0000000000..fdbdb25e89
--- /dev/null
+++ b/challenge-255/wlmb/blog.txt
@@ -0,0 +1 @@
+https://wlmb.github.io/2024/02/05/PWC255/
diff --git a/challenge-255/wlmb/perl/ch-1.pl b/challenge-255/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..b4fd9c7739
--- /dev/null
+++ b/challenge-255/wlmb/perl/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 255
+# Task 1:  Odd Character
+#
+# See https://wlmb.github.io/2024/02/05/PWC255/#task-1-odd-character
+use v5.36;
+use experimental qw(for_list);
+die <<~"FIN" unless @ARGV && @ARGV%2==0;
+    Usage: $0 S0 T0 [S1 T1...]
+    to find the odd characters in the string pairs Sn Tn
+    FIN
+for my ($s,$t)(@ARGV){
+    warn "Length should differ by one" unless length $t == 1+length $s;
+    my %count;
+    ++$count{$_} for split "", fc $s;
+    --$count{$_}||delete $count{$_} for split "", fc $t;
+    warn "More than one odd character" unless (keys %count)==1;
+    say "$t, $s -> ", keys %count;
+}
diff --git a/challenge-255/wlmb/perl/ch-2.pl b/challenge-255/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..aabc08ca56
--- /dev/null
+++ b/challenge-255/wlmb/perl/ch-2.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 255
+# Task 2:  Most Frequent Word
+#
+# See https://wlmb.github.io/2024/02/05/PWC255/#task-2-most-frequent-word
+use v5.36;
+use List::UtilsBy qw(max_by);
+die <<~"FIN" unless @ARGV==2;
+    Usage: $0 S ¨P
+    to find the most frequent word in paragraph P excluding the word S
+    FIN
+my ($w, $p)=@ARGV;
+my %count;
+++$count{fc $_} for split /\W+/, $p;
+delete $count{fc $w};
+say "\n$w\n$p\n->\n", max_by{$count{$_}} keys %count;
-- 
cgit