blob: b296a4c619177ee058c95d4d1756d20d014968e0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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";
|