From 40eb8465f7958ac056a3843d38234848b15464f7 Mon Sep 17 00:00:00 2001 From: HJ Date: Mon, 25 Dec 2023 11:24:39 -0500 Subject: day 1-24 end-of-year style cleanup --- aoc2023-other/day-21/day-21.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'aoc2023-other/day-21/day-21.rkt') diff --git a/aoc2023-other/day-21/day-21.rkt b/aoc2023-other/day-21/day-21.rkt index 8d73a7f..b5478eb 100644 --- a/aoc2023-other/day-21/day-21.rkt +++ b/aoc2023-other/day-21/day-21.rkt @@ -27,7 +27,9 @@ (for ([neighbor (in-list (neighbors cons))] #:when (hash-has-key? g neighbor)) (hash-set! update neighbor 'on))) (hash-union! g update #:combine/key (λ (_k _v v) v))) - (for/fold ([_ void] #:result (~>> g hash-values (count (curry equal? 'on)))) ([i (in-range n)]) + (for/fold ([_ void] + #:result (~>> g hash-values (count (curry equal? 'on)))) + ([i (in-range n)]) (displayln i) (make-one-step))) -- cgit v1.2.3