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

[aoc.git] / 2016 / 08.pl

diff --git a/2016/08.pl b/2016/08.pl
new file mode 100755 (executable)
index 0000000..80fa433
--- /dev/null
+++ b/2016/08.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use strict;
+use v5.30;
+
+my $sum;
+while (<>) {
+       chomp;
+       my ($code, $id, $csum) = /\A([a-z-]+)-(\d+)\[([a-z]{5})\]/;
+       my $d;
+       $code =~ s/-/ /g;
+       for (split //, $code) {
+               if ($_ eq ' ') {
+                       $d .= ' ';
+                       next;
+               }
+               $d .= chr(ord('a') + ((ord($_)-ord('a')+$id) % 26));
+       }
+       say $id if $d =~ /pole/;
+}