Merge pull request #7459 from pjcs00/wk201

week 201 submission

3 files changed, 88 insertions, 0 deletions

diff --git a/challenge-201/peter-campbell-smith/blog.txt b/challenge-201/peter-campbell-smith/blog.txt
new file mode 100644
index 0000000000..5ae4e891fe
--- /dev/null
+++ b/challenge-201/peter-campbell-smith/blog.txt
@@ -0,0 +1 @@
+https://pjcs-pwc.blogspot.com/2023/01/201-missing-numbers-and-piles-of-pennies.html
diff --git a/challenge-201/peter-campbell-smith/perl/ch-1.pl b/challenge-201/peter-campbell-smith/perl/ch-1.pl
new file mode 100755
index 0000000000..57259c5e31
--- /dev/null
+++ b/challenge-201/peter-campbell-smith/perl/ch-1.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+# Peter Campbell Smith - 2023-01-23
+# PWC 201 task 1
+
+use v5.28;
+use utf8;
+use warnings;
+
+# Task: You are given an array of unique numbers. Write a script to find out all missing numbers in the range 
+# 0..$n where $n is the array size.
+
+# Blog: https://pjcs-pwc.blogspot.com/2023/01/201-missing-numbers-and-piles-of-pennies.html
+
+my (@tests, $test, $string, $j, $result);
+
+@tests = ([0, 1, 3], [0, 1], [4, 5, 6], [6, 5, 4, 2, 1, 0], [0], []);
+
+# loop over tests
+for $test (@tests) {
+	
+	# make a string from the array
+	$result = '';
+	$string = ',' . join(',', @$test) . ',';   # $string = ,1,2,3,
+	
+	# check for missing numbers
+	for $j (0 .. scalar @$test) {
+		$result .= qq[$j, ] unless $string =~ m|,$j,|;
+	}
+	
+	# report result
+	$string =~ s|,|, |g;
+	say qq[\nInput:  \$array = (] . substr($string, 2, -2) . ')';
+	say qq[Output: ] . substr($result, 0, -2);
+}	
diff --git a/challenge-201/peter-campbell-smith/perl/ch-2.pl b/challenge-201/peter-campbell-smith/perl/ch-2.pl
new file mode 100755
index 0000000000..4596c64cb8
--- /dev/null
+++ b/challenge-201/peter-campbell-smith/perl/ch-2.pl
@@ -0,0 +1,52 @@
+#!/usr/bin/perl
+
+# Peter Campbell Smith - 2023-01-23
+# PWC 201 task 2
+
+use v5.28;
+use utf8;
+use warnings;
+
+# Task: You are given an integer, $n > 0. Write a script to determine the number of ways of putting $n 
+# pennies in a row of piles such that each pile contains no fewer pennies than the one on its left.
+
+# Blog: https://pjcs-pwc.blogspot.com/2023/01/201-missing-numbers-and-piles-of-pennies.html
+
+my (@tests, $n, $ways, $piles);
+
+@tests = (1, 2, 3, 4, 5, 20);
+
+# loop over tests
+for $n (@tests) {
+	
+	# initialise
+	$ways = 0;
+	$piles = '';
+	
+	# find possible ways to do it
+	find_ways($n, $n, '');
+	
+	# output results
+	say qq[Input:  \$n = $n\nOutput: ] . $ways;
+	say qq[Piles:\n$piles];
+}	
+
+sub find_ways {
+	
+	# returns the number of possible ways of stacking $pennies pennies in stacks no more than $height
+	my ($pennies, $height, $stack) = @_;
+	my ($h);
+
+	# no pennies left - answer found
+	if ($pennies == 0) {
+		$piles .= qq[$stack\n];
+		$stack = '';
+		$ways ++;
+		return;
+	}
+	
+	# loop over possible piles
+	for $h (1 .. ($pennies > $height ? $height : $pennies)) {
+		find_ways($pennies - $h, $h, qq[$h $stack]);
+	}
+}