]> www.fi.muni.cz Git - aoc2021.git/blob - 01.pl
Day 13: more off-by-one errors.
[aoc2021.git] / 01.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4
5 my $prev;
6 my $inc;
7 while (<>) {
8         chomp;
9         $inc++ if $prev && $_ > $prev;
10         $prev = $_;
11 }
12
13 print $inc, "\n";
14