AoC 2017 begins

[aoc.git] / 2017 / 02.pl

diff --git a/2017/02.pl b/2017/02.pl
new file mode 100755 (executable)
index 0000000..6726b6b
--- /dev/null
+++ b/2017/02.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use v5.30;
+use strict;
+
+chomp (my $data = <>);
+
+my $l = length $data;
+$l /= 2;
+$data .= substr($data, 0, $l);
+$l--;
+my $sum = 0;
+$sum += $1 while $data =~ /(.)(?=.{$l}\1)/g;
+say $sum;