From 648ff5f44ada837bb2cc2d39f9592456d7c13fa2 Mon Sep 17 00:00:00 2001
From: Roger Bell_West <roger@firedrake.org>
Date: Tue, 7 Jan 2020 10:01:21 +0000
Subject: Solutions for challenge #42.

---
 challenge-042/roger-bell-west/ch-1.p6 |  5 +++++
 challenge-042/roger-bell-west/ch-1.pl |  8 ++++++++
 challenge-042/roger-bell-west/ch-2.p6 | 18 ++++++++++++++++++
 challenge-042/roger-bell-west/ch-2.pl | 20 ++++++++++++++++++++
 4 files changed, 51 insertions(+)
 create mode 100755 challenge-042/roger-bell-west/ch-1.p6
 create mode 100755 challenge-042/roger-bell-west/ch-1.pl
 create mode 100755 challenge-042/roger-bell-west/ch-2.p6
 create mode 100755 challenge-042/roger-bell-west/ch-2.pl

(limited to 'challenge-042')

diff --git a/challenge-042/roger-bell-west/ch-1.p6 b/challenge-042/roger-bell-west/ch-1.p6
new file mode 100755
index 0000000000..dea851fd19
--- /dev/null
+++ b/challenge-042/roger-bell-west/ch-1.p6
@@ -0,0 +1,5 @@
+#! /usr/bin/perl6
+
+for (0..50) {
+  printf('Decimal %d = Octal %o' ~ "\n",$_,$_);
+}
diff --git a/challenge-042/roger-bell-west/ch-1.pl b/challenge-042/roger-bell-west/ch-1.pl
new file mode 100755
index 0000000000..22945f8f4c
--- /dev/null
+++ b/challenge-042/roger-bell-west/ch-1.pl
@@ -0,0 +1,8 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+foreach (0..50) {
+  printf('Decimal %d = Octal %o'."\n",$_,$_);
+}
diff --git a/challenge-042/roger-bell-west/ch-2.p6 b/challenge-042/roger-bell-west/ch-2.p6
new file mode 100755
index 0000000000..9bf4a46979
--- /dev/null
+++ b/challenge-042/roger-bell-west/ch-2.p6
@@ -0,0 +1,18 @@
+#! /usr/bin/perl6
+
+my $s='';
+my @c=('(',')');
+for (-1 .. 2*(floor(rand*4))) {
+  $s ~= @c[floor(rand*2)];
+}
+
+print "$s\n";
+
+while ($s ~~ s:g/\(\)//) {
+}
+
+if ($s) {
+  say "Invalid: $s";
+} else {
+  say "Valid.";
+}
diff --git a/challenge-042/roger-bell-west/ch-2.pl b/challenge-042/roger-bell-west/ch-2.pl
new file mode 100755
index 0000000000..628f344033
--- /dev/null
+++ b/challenge-042/roger-bell-west/ch-2.pl
@@ -0,0 +1,20 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+my $s='';
+foreach (-1..2*(int(rand()*4))) {
+  $s .= (rand()<0.5)?'(':')';
+}
+
+print "$s\n";
+
+while ($s =~ s/\(\)//g) {
+}
+
+if ($s) {
+  print "Invalid: $s\n";
+} else {
+  print "Valid.\n";
+}
-- 
cgit