Merge pull request #7347 from wlmb/challenges

Solve PWC198

3 files changed, 28 insertions, 0 deletions

diff --git a/challenge-198/wlmb/blog.txt b/challenge-198/wlmb/blog.txt
new file mode 100644
index 0000000000..d193f27261
--- /dev/null
+++ b/challenge-198/wlmb/blog.txt
@@ -0,0 +1,2 @@
+https://wlmb.github.io/2023/01/02/PWC198/
+
diff --git a/challenge-198/wlmb/perl/ch-1.pl b/challenge-198/wlmb/perl/ch-1.pl
new file mode 100755
index 0000000000..1f8b33681c
--- /dev/null
+++ b/challenge-198/wlmb/perl/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 198
+# Task 1:  Max Gap
+#
+# See https://wlmb.github.io/2023/01/02/PWC198/#task-1-max-gap
+use v5.36;
+my @sorted=sort {$a<=>$b} @ARGV;
+my %count;
+my $max;
+for(1..@sorted-1){
+    ++$count{my $gap=$sorted[$_]-$sorted[$_-1]};
+    $max=$gap if !defined $max || $gap>$max;
+};
+say join " ", @ARGV, "->", $count{$max}||0
diff --git a/challenge-198/wlmb/perl/ch-2.pl b/challenge-198/wlmb/perl/ch-2.pl
new file mode 100755
index 0000000000..000c86aa6a
--- /dev/null
+++ b/challenge-198/wlmb/perl/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+# Perl weekly challenge 198
+# Task 2:  Prime Count
+#
+# See https://wlmb.github.io/2023/01/02/PWC198/#task-2-prime-count
+use v5.36;
+use Math::Prime::Util qw(prime_count);
+say(<<~"FIN"), exit unless @ARGV;
+    Usage: $0 N1 [N2...]
+    to fin the number of primes below N1, N2...
+    FIN
+say "$_ -> ", prime_count($_-1) for @ARGV;