diff options
| author | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-12-23 03:10:19 -0500 |
|---|---|---|
| committer | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-12-23 03:10:19 -0500 |
| commit | 149e73dd96ed0fd932d3dadbc8e639ef3ad9112a (patch) | |
| tree | d0c9a1e8d9e357470e01549bbaa14956d237af46 | |
| parent | 2c5d9cba9e4c40af0aab773d5718325ebb649c7e (diff) | |
| download | gleam_aoc-149e73dd96ed0fd932d3dadbc8e639ef3ad9112a.tar.gz gleam_aoc-149e73dd96ed0fd932d3dadbc8e639ef3ad9112a.zip | |
day 23 cleanup
| -rw-r--r-- | 2022/day-23/day-23.rkt | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/2022/day-23/day-23.rkt b/2022/day-23/day-23.rkt index 3b6d992..6069859 100644 --- a/2022/day-23/day-23.rkt +++ b/2022/day-23/day-23.rkt @@ -68,10 +68,9 @@ (append (cdr dirs) (list (car dirs))))) ;; part 2 -(time - (for/fold ([elves initial-map] [dirs '(north south west east)] [rnd 1] #:result rnd) - ([_rnd (in-naturals)]) - (define elves-proposed (propose-movements elves dirs)) - ; elves have stopped moving if they all conclude they want to stay put - #:break (~> elves-proposed hash-values remove-duplicates (equal? '(stay))) - (values (try-proposed-movements elves-proposed) (append (cdr dirs) (list (car dirs))) (add1 rnd)))) +(for/fold ([elves initial-map] [dirs '(north south west east)] [rnd 1] #:result rnd) + ([_rnd (in-naturals)]) + (define elves-proposed (propose-movements elves dirs)) + ; elves have stopped moving if they all conclude they want to stay put + #:break (~> elves-proposed hash-values remove-duplicates (equal? '(stay))) + (values (try-proposed-movements elves-proposed) (append (cdr dirs) (list (car dirs))) (add1 rnd))) |