Year 2015

[aoc.git] / 2015 / 04.pl

diff --git a/2015/04.pl b/2015/04.pl
new file mode 100755 (executable)
index 0000000..5ec30df
--- /dev/null
+++ b/2015/04.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+use strict;
+
+my $sum;
+while (<>) {
+       chomp;
+       my @dims = sort { $a <=> $b } split /x/;
+       $sum += 2*$dims[0] + 2*$dims[1] + $dims[0]*$dims[1]*$dims[2];
+}
+
+say $sum;
+       
+