diff options
Diffstat (limited to 'day01.pl')
-rw-r--r-- | day01.pl | 14 |
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; |