diff options
| author | June McEnroe <june@causal.agency> | 2021-12-06 10:31:29 -0500 |
|---|---|---|
| committer | June McEnroe <june@causal.agency> | 2021-12-06 10:31:29 -0500 |
| commit | 13cfd360455813f67dee7f411cf9590d444948a5 (patch) | |
| tree | 7b7fea6e7ff0249390a2b5e237abc699bae930bc | |
| parent | Solve day 5 part 2 (diff) | |
| download | aoc-13cfd360455813f67dee7f411cf9590d444948a5.tar.gz aoc-13cfd360455813f67dee7f411cf9590d444948a5.zip | |
Solve day 6 part 1
| -rw-r--r-- | 2021/day06.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/2021/day06.pl b/2021/day06.pl new file mode 100644 index 0000000..b296a4c --- /dev/null +++ b/2021/day06.pl @@ -0,0 +1,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"; |