Year 2015

[aoc.git] / 2015 / 15.pl

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