day01

1 files changed, 14 insertions, 0 deletions

diff --git a/day01.pl b/day01.pl
new file mode 100644
index 0000000..d81b7fa
--- /dev/null
+++ b/day01.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+use v5.16;
+
+use File::Slurper 'read_lines';
+use List::Util 'sum';
+use integer;
+
+my @d = read_lines "day01";
+
+say sum map { $_/3-2 } @d;
+
+my $p2 = 0;
+map { $p2 += $_ while ($_ = $_/3-2) > 0} @d;
+say $p2;