From 149e73dd96ed0fd932d3dadbc8e639ef3ad9112a Mon Sep 17 00:00:00 2001 From: Hunky Jimpjorps Date: Fri, 23 Dec 2022 03:10:19 -0500 Subject: day 23 cleanup --- 2022/day-23/day-23.rkt | 13 ++++++------- 1 file 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))) -- cgit v1.2.3