- Added solution by Pete Houston.

1 files changed, 14 insertions, 0 deletions

diff --git a/challenge-030/pete-houston/perl5/ch-2.pl b/challenge-030/pete-houston/perl5/ch-2.pl
new file mode 100644
index 0000000000..e380542eee
--- /dev/null
+++ b/challenge-030/pete-houston/perl5/ch-2.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $sum = 12;
+for my $marker (0 .. $sum) {
+    for my $iter ($marker .. $sum - $marker) {
+        my @set = ($marker, $iter, $sum - $iter - $marker);
+        next if $set[2] < $set[1];
+        next unless grep { $_ % 2 == 0 } @set;
+        print "@set\n";
+    }
+}
+