Merge pull request #7680 from wlmb/challenges

Solve PWC207

3 files changed, 26 insertions, 0 deletions

diff --git a/challenge-207/wlmb/blog.txt b/challenge-207/wlmb/blog.txt
new file mode 100644
index 0000000000..a505d8681e
--- /dev/null
+++ b/challenge-207/wlmb/blog.txt
@@ -0,0 +1,2 @@
+https://wlmb.github.io/2023/03/06/PWC207/
+
diff --git a/challenge-207/wlmb/perl/ch-1.pl b/challenge-207/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..c21d841bea
--- /dev/null
+++ b/challenge-207/wlmb/perl/ch-1.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 207
+# Task 1:  Keyboard Word
+#
+# See https://wlmb.github.io/2023/03/06/PWC207/#task-1-keyboard-word
+use v5.36;
+die <<~"FIN" unless @ARGV;
+    Usage: $0 W1 [W2...]
+    to find which of the words W1 W2... may be written using a single keyboard row.
+    FIN
+say join " ", @ARGV, "->",
+    grep {/^([qwertyuiop]+|[asdfghjkl]+|[zxcvbnm]+)$/i} @ARGV;
diff --git a/challenge-207/wlmb/perl/ch-2.pl b/challenge-207/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..d007b11f81
--- /dev/null
+++ b/challenge-207/wlmb/perl/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 207
+# Task 2:  H-Index
+#
+# See https://wlmb.github.io/2023/03/06/PWC207/#task-2-h-index
+use v5.36;
+my $h=0;
+for(sort{$b<=>$a}@ARGV){
+    last if $_<=$h;
+    ++$h
+}
+say join " ", @ARGV, "->", $h;