2nd answer plus blog

2 files changed, 37 insertions, 0 deletions

diff --git a/challenge-030/dave-jacoby/blog.txt b/challenge-030/dave-jacoby/blog.txt
new file mode 100644
index 0000000000..2a13924865
--- /dev/null
+++ b/challenge-030/dave-jacoby/blog.txt
@@ -0,0 +1 @@
+https://jacoby.github.io/2019/10/15/blogging-challenge-30.html
diff --git a/challenge-030/dave-jacoby/perl5/ch-2b.pl b/challenge-030/dave-jacoby/perl5/ch-2b.pl
new file mode 100755
index 0000000000..d7ecaec072
--- /dev/null
+++ b/challenge-030/dave-jacoby/perl5/ch-2b.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use utf8;
+use feature qw{ postderef say signatures state switch };
+no warnings
+    qw{ experimental::postderef experimental::smartmatch experimental::signatures };
+
+my %done;
+
+for my $m ( 1 .. 10 ) {
+    for my $n ( 1 .. 10 ) {
+        my $o = 12 - ( $m + $n );
+        next unless $o > 0;
+        my $p = $m + $n + $o;
+        my $i = join ' ', sort $m, $n, $o;
+        next if $done{$i}++;
+        say qq{    $m + $n + $o = $p};
+    }
+}
+
+__DATA__
+
+    1 + 1 + 10 = 12
+    1 + 2 + 9 = 12
+    1 + 3 + 8 = 12
+    1 + 4 + 7 = 12
+    1 + 5 + 6 = 12
+    2 + 2 + 8 = 12
+    2 + 3 + 7 = 12
+    2 + 4 + 6 = 12
+    2 + 5 + 5 = 12
+    3 + 3 + 6 = 12
+    3 + 4 + 5 = 12
+    4 + 4 + 4 = 12