diff options
Diffstat (limited to 'aoc2023-other/day-11')
| -rw-r--r-- | aoc2023-other/day-11/day-11.rkt | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/aoc2023-other/day-11/day-11.rkt b/aoc2023-other/day-11/day-11.rkt index 883ae11..dba617b 100644 --- a/aoc2023-other/day-11/day-11.rkt +++ b/aoc2023-other/day-11/day-11.rkt @@ -15,14 +15,18 @@ n)) (define (count-prior-empty-ranks rank empty-ranks) - (~> empty-ranks (takef (curryr < rank)) length)) + (~> empty-ranks + (takef (curryr < rank)) + length)) (define empty-rows (get-empty-ranks input)) (define empty-columns (get-empty-ranks (apply map list input))) ;; transpose (define (sum-of-star-distances in expand-by) (define stars - (for*/list ([(row x) (in-indexed in)] [(col y) (in-indexed row)] #:when (equal? col #\#)) + (for*/list ([(row x) (in-indexed in)] + [(col y) (in-indexed row)] + #:when (equal? col #\#)) (posn (+ x (* (sub1 expand-by) (count-prior-empty-ranks x empty-rows))) (+ y (* (sub1 expand-by) (count-prior-empty-ranks y empty-columns)))))) (for/sum ([star-pair (in-combinations stars 2)]) |