First half of Year 2019

[aoc.git] / 2019 / 02.pl

diff --git a/2019/02.pl b/2019/02.pl
new file mode 100755 (executable)
index 0000000..90a125c
--- /dev/null
+++ b/2019/02.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+
+my $sum;
+while (<>) {
+       while (1) {
+               $_ = int($_/3)-2;
+               last if $_ <= 0;        
+               $sum += $_;
+       } 
+}
+say $sum;