From 76e5c0c09f1c9a87f8bcdc42bb3600145d377f7a Mon Sep 17 00:00:00 2001 From: Luis Mochan Date: Mon, 2 Jan 2023 12:42:04 -0600 Subject: Solve PWC198 --- challenge-198/wlmb/blog.txt | 2 ++ challenge-198/wlmb/perl/ch-1.pl | 14 ++++++++++++++ challenge-198/wlmb/perl/ch-2.pl | 12 ++++++++++++ 3 files changed, 28 insertions(+) create mode 100644 challenge-198/wlmb/blog.txt create mode 100755 challenge-198/wlmb/perl/ch-1.pl create mode 100755 challenge-198/wlmb/perl/ch-2.pl 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; -- cgit