Year 2015

[aoc.git] / 2015 / 10.pl

diff --git a/2015/10.pl b/2015/10.pl
new file mode 100755 (executable)
index 0000000..5e7be16
--- /dev/null
+++ b/2015/10.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+use strict;
+
+my $sum;
+while (<>) {
+       chomp;
+       next if ! /(..).*\1/;
+       next if ! /(.).\1/;
+       $sum++;
+}
+say $sum;