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

[aoc.git] / 2016 / 06.pl

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