Year 2015

[aoc.git] / 2015 / 16.pl

diff --git a/2015/16.pl b/2015/16.pl
new file mode 100755 (executable)
index 0000000..3430042
--- /dev/null
+++ b/2015/16.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+use strict;
+
+my ($clen, $slen) = (0, 0);
+while (<>) {
+       chomp;
+       $slen += length;
+       $clen += 2+length "\Q$_\E";
+       # say "$_ =>\n\Q$_\E\n\n";
+}
+
+say $clen - $slen;