Year 2015

[aoc.git] / 2015 / 31.pl

diff --git a/2015/31.pl b/2015/31.pl
new file mode 100755 (executable)
index 0000000..1ba982e
--- /dev/null
+++ b/2015/31.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+use strict;
+
+my %g = (
+children => 3,
+cats => 7,
+samoyeds => 2,
+pomeranians => 3,
+akitas => 0,
+vizslas => 0,
+goldfish => 5,
+trees => 3,
+cars => 2,
+perfumes => 1,
+);
+
+
+AUNT:
+while (<>) {
+       my ($id, $rest) = /Sue (\d+): (.*)/;
+       my %vals = $rest =~ /(\w+): (\d+)/g;
+       for my $v (keys %vals) {
+               next AUNT if defined $g{$v} && $g{$v} != $vals{$v};
+       }
+       say "aunt $id";
+}