From e3c33b4f66c99752912b067e5e94d806b519f9bf Mon Sep 17 00:00:00 2001 From: Luis Mochan Date: Mon, 23 Jan 2023 11:18:04 -0600 Subject: Solve PWC 201 --- challenge-201/wlmb/blog.txt | 2 ++ challenge-201/wlmb/perl/ch-1.pl | 14 ++++++++++++++ challenge-201/wlmb/perl/ch-2.pl | 18 ++++++++++++++++++ 3 files changed, 34 insertions(+) create mode 100644 challenge-201/wlmb/blog.txt create mode 100755 challenge-201/wlmb/perl/ch-1.pl create mode 100755 challenge-201/wlmb/perl/ch-2.pl diff --git a/challenge-201/wlmb/blog.txt b/challenge-201/wlmb/blog.txt new file mode 100644 index 0000000000..c62ddb9009 --- /dev/null +++ b/challenge-201/wlmb/blog.txt @@ -0,0 +1,2 @@ +https://wlmb.github.io/2023/01/23/PWC201/ + diff --git a/challenge-201/wlmb/perl/ch-1.pl b/challenge-201/wlmb/perl/ch-1.pl new file mode 100755 index 0000000000..eca10fb440 --- /dev/null +++ b/challenge-201/wlmb/perl/ch-1.pl @@ -0,0 +1,14 @@ +#!/usr/bin/env perl +# Perl weekly challenge 201 +# Task 1: Missing Numbers +# +# See https://wlmb.github.io/2023/01/23/PWC201/#task-1-missing-numbers +use v5.36; +my %seen; +die <<~ "FIN" unless @ARGV; + Usage: $0 N1 [N2...] + to find the missing numbers from the sequence N1 N2... + FIN +@seen{@ARGV}=(1)x@ARGV; +die "Expected unique values" unless 0+@ARGV==0+keys %seen; +say join " ", @ARGV, "->", grep {!$seen{$_}} 0..@ARGV; diff --git a/challenge-201/wlmb/perl/ch-2.pl b/challenge-201/wlmb/perl/ch-2.pl new file mode 100755 index 0000000000..9433e56350 --- /dev/null +++ b/challenge-201/wlmb/perl/ch-2.pl @@ -0,0 +1,18 @@ +#!/usr/bin/env perl +# Perl weekly challenge 201 +# Task 2: Penny Piles +# +# See https://wlmb.github.io/2023/01/23/PWC201/#task-2-penny-piles +use v5.36; +use List::Util qw(min sum); +use Memoize; +memoize "rows"; +die <<~"FIN" unless @ARGV; + Usage: $0 N1 [N2...] + to obtain the number of ascending rows of piles of Ni coins. + FIN +say "$_->", rows($_, $_) for @ARGV; +sub rows($coins,$max){ + return 1 if $coins==0; + return sum map{rows($coins-$_,min($_, $coins-$_))} 1..min($coins, $max) +} -- cgit