Year 2015

[aoc.git] / 2015 / 03.pl

diff --git a/2015/03.pl b/2015/03.pl
new file mode 100755 (executable)
index 0000000..0cba607
--- /dev/null
+++ b/2015/03.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 += 3*$dims[0]*$dims[1] + 2* $dims[0]*$dims[2] + 2* $dims[1]*$dims[2];
+}
+
+say $sum;
+       
+