AoC 2017 begins

[aoc.git] / 2017 / 01.pl

diff --git a/2017/01.pl b/2017/01.pl
new file mode 100755 (executable)
index 0000000..77c9077
--- /dev/null
+++ b/2017/01.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use v5.30;
+use strict;
+
+chomp (my $data = <>);
+
+$data =~s /\A(.)(.*)\z/\1\2\1/;
+my $sum = 0;
+$sum += $1 while $data =~ /(.)(?=\1)/g;
+say $sum;