Merge pull request #764 from Firedrake/rogerbw-challenge-030

Solutions for challenge #30.

4 files changed, 38 insertions, 0 deletions

diff --git a/challenge-030/roger-bell-west/perl5/ch-1.pl b/challenge-030/roger-bell-west/perl5/ch-1.pl
new file mode 100755
index 0000000000..da1b6289a5
--- /dev/null
+++ b/challenge-030/roger-bell-west/perl5/ch-1.pl
@@ -0,0 +1,8 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Time::Local;
+
+print map {"$_\n"} grep {(gmtime(timegm(0,0,12,25,11,$_)))[6]==0} (2019..2100);
diff --git a/challenge-030/roger-bell-west/perl5/ch-2.pl b/challenge-030/roger-bell-west/perl5/ch-2.pl
new file mode 100755
index 0000000000..a7849eb6b1
--- /dev/null
+++ b/challenge-030/roger-bell-west/perl5/ch-2.pl
@@ -0,0 +1,15 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+my $target=12;
+
+foreach my $a (0..$target) {
+  foreach my $b ($a..$target) {
+    my $c=$target-$a-$b;
+    if ($c>=$b) {
+      print "$a $b $c\n";
+    }
+  }
+}
diff --git a/challenge-030/roger-bell-west/perl6/ch-1.p6 b/challenge-030/roger-bell-west/perl6/ch-1.p6
new file mode 100755
index 0000000000..ca4d7982d6
--- /dev/null
+++ b/challenge-030/roger-bell-west/perl6/ch-1.p6
@@ -0,0 +1,3 @@
+#! /usr/bin/perl6
+
+map {say "$_"}, grep {Date.new($_,12,25).day-of-week==7}, (2019..2100);
diff --git a/challenge-030/roger-bell-west/perl6/ch-2.p6 b/challenge-030/roger-bell-west/perl6/ch-2.p6
new file mode 100755
index 0000000000..8c6357afee
--- /dev/null
+++ b/challenge-030/roger-bell-west/perl6/ch-2.p6
@@ -0,0 +1,12 @@
+#! /usr/bin/perl6
+
+my $target=12;
+
+for (0..$target) -> $a {
+  for ($a..$target) -> $b {
+    my $c=$target-$a-$b;
+    if ($c>=$b) {
+      say "$a $b $c";
+    }
+  }
+}