diff options
Diffstat (limited to 'aoc2021/day-06/day-06.rkt')
-rw-r--r-- | aoc2021/day-06/day-06.rkt | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/aoc2021/day-06/day-06.rkt b/aoc2021/day-06/day-06.rkt deleted file mode 100644 index d8855ba..0000000 --- a/aoc2021/day-06/day-06.rkt +++ /dev/null @@ -1,27 +0,0 @@ -#lang racket -(require advent-of-code - list-utils - threading - racket/hash) - -(define fish-data - (~> (open-aoc-input (find-session) 2021 6 #:cache (string->path "./cache")) - port->string - string-trim - (string-split ",") - (map string->number _))) - -(define (simulate-fish time-period) - (for/fold ([state (frequencies fish-data)] #:result (~> state hash-values (apply + _))) - ([day (inclusive-range 1 time-period)]) - (define day-older-fish - (for/hash ([(days pop) (in-hash state)]) - (values (sub1 days) pop))) - (define breeding-fish (hash-ref day-older-fish -1 0)) - (hash-union (hash-remove day-older-fish -1) (hash 8 breeding-fish 6 breeding-fish) #:combine +))) - -;; part 1 -(simulate-fish 80) - -;; part 2 -(simulate-fish 256) |