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 /2021/day06.pl | |
parent | Solve day 5 part 2 (diff) | |
download | aoc-13cfd360455813f67dee7f411cf9590d444948a5.tar.gz aoc-13cfd360455813f67dee7f411cf9590d444948a5.zip |
Solve day 6 part 1
Diffstat (limited to '2021/day06.pl')
-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"; |