aboutsummaryrefslogtreecommitdiff
path: root/aoc2021/day-06/day-06.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'aoc2021/day-06/day-06.rkt')
-rw-r--r--aoc2021/day-06/day-06.rkt27
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)