]> www.fi.muni.cz Git - aoc.git/blob - 01.pl
946d264ae47cb48d9e9d77d6d3dc07537d7b484f
[aoc.git] / 01.pl
1 #!/usr/bin/perl -w
2
3 use v5.16;
4
5 my $sum;
6 $sum += int($_/3)-2 for <>;
7 say $sum;