about summary refs log tree commit diff
path: root/day01.pl
blob: d81b7fab411b393ae9242eb0e1f32f2f0c4db803 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
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;