path: root/2021/day06.pl

use strict;
use warnings;
my @fish = split(/,/, <>);
for (1..80) {
	my @spawns;
	for my $f (@fish) {
		if ($f) {
			$f--;
		} else {
			$f = 6;
			push @spawns, 8;
		}
	}
	push @fish, @spawns;
}
print scalar(@fish), "\n";