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

[aoc.git] / 2016 / 13.pl

diff --git a/2016/13.pl b/2016/13.pl
new file mode 100755 (executable)
index 0000000..8809677
--- /dev/null
+++ b/2016/13.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -w
+
+use strict;
+use v5.30;
+
+my $count;
+
+while (<>) {
+       chomp;
+       next if /\[[^\]]*(\w)(?!\1)(\w)\2\1/;
+       next if !/(\w)(?!\1)(\w)\2\1/;
+       $count++;
+       say;
+}
+
+say $count;