Year 2016, days 1-10: so far pretty interesting

[aoc.git] / 2016 / 05.pl

diff --git a/2016/05.pl b/2016/05.pl
new file mode 100755 (executable)
index 0000000..9d52104
--- /dev/null
+++ b/2016/05.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+
+use strict;
+use v5.30;
+
+my $valid;
+while (<>) {
+       chomp;
+       my (@d) = sort { $a <=> $b } /(\d+)/g;
+       $valid++ if $d[0]+$d[1] > $d[2];
+}
+
+say $valid;