Year 2015

[aoc.git] / 2015 / 09.pl

diff --git a/2015/09.pl b/2015/09.pl
new file mode 100755 (executable)
index 0000000..049cf10
--- /dev/null
+++ b/2015/09.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+use strict;
+
+my $sum;
+while (<>) {
+       chomp;
+       my $wov =()= /[aeiou]/g;
+       next if $wov < 3;
+       next if ! /(.)\1/;
+       next if /ab|cd|pq|xy/;
+       $sum++;
+}
+say $sum;