- Added solutions by Darren Bottin.

3 files changed, 26 insertions, 0 deletions

diff --git a/challenge-030/darren-bottin/README b/challenge-030/darren-bottin/README
new file mode 100644
index 0000000000..6c792afe8e
--- /dev/null
+++ b/challenge-030/darren-bottin/README
@@ -0,0 +1 @@
+Solutions by Darren Bottin.
diff --git a/challenge-030/darren-bottin/perl5/ch-1.pl b/challenge-030/darren-bottin/perl5/ch-1.pl
new file mode 100644
index 0000000000..57a3737a53
--- /dev/null
+++ b/challenge-030/darren-bottin/perl5/ch-1.pl
@@ -0,0 +1,11 @@
+#!perl
+use strict;
+use warnings;
+
+#Task 1
+use POSIX;
+for my $year (2019..2100) {
+  my $date = POSIX::strftime ("%w %Y-%m-%d",
+             0, 0, 0,  25,  11, $year-1900);
+  print "$date is a Sunday Christmas\n" if $date =~ s/^0 //g;
+}
diff --git a/challenge-030/darren-bottin/perl5/ch-2.pl b/challenge-030/darren-bottin/perl5/ch-2.pl
new file mode 100644
index 0000000000..6c20a4718d
--- /dev/null
+++ b/challenge-030/darren-bottin/perl5/ch-2.pl
@@ -0,0 +1,14 @@
+#!perl
+use strict;
+use warnings;
+
+my %solutions;
+for my $foo (1..10) {
+  for my $bar ($foo+1..11-$foo) {
+    my $baz = 12 - $foo - $bar;
+    my @sorted = sort ($foo, $bar, $baz);
+    my $asoln = join ("\+", @sorted);
+    $solutions{$asoln}++;
+  }
+}
+print "$_ = 12\n" foreach sort keys %solutions;