Moved 2021 to a subdir

[aoc.git] / 2021 / 01.pl

#!/usr/bin/perl -w

use strict;

my $prev;
my $inc;
while (<>) {
        chomp;
        $inc++ if $prev && $_ > $prev;
        $prev = $_;
}

print $inc, "\n";