First half of Year 2019

[aoc.git] / 2019 / 01.pl

diff --git a/2019/01.pl b/2019/01.pl
new file mode 100755 (executable)
index 0000000..946d264
--- /dev/null
+++ b/2019/01.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+
+my $sum;
+$sum += int($_/3)-2 for <>;
+say $sum;