Merge pull request #1115 from Firedrake/rogerbw-challenge-042

Solutions for challenge #42.

4 files changed, 51 insertions, 0 deletions

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";
+}