diff options
| -rw-r--r-- | aoc2023-other/day-22/day-22.rkt | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/aoc2023-other/day-22/day-22.rkt b/aoc2023-other/day-22/day-22.rkt index 93c77f2..2abe4bf 100644 --- a/aoc2023-other/day-22/day-22.rkt +++ b/aoc2023-other/day-22/day-22.rkt @@ -14,9 +14,14 @@ (define input (fetch-aoc-input (find-session) 2023 22 #:cache #true)) (define coordinate/p - (do [coords <- (many/p integer/p #:sep (char/p #\,) #:min 3 #:max 3)] (pure (apply posn coords)))) + (do [coords <- (many/p integer/p #:sep (char/p #\,) #:min 3 #:max 3)] + (pure (apply posn coords)))) -(define block/p (do [from <- coordinate/p] (char/p #\~) [to <- coordinate/p] (pure (cons from to)))) +(define block/p + (do [from <- coordinate/p] + (char/p #\~) + [to <- coordinate/p] + (pure (cons from to)))) (define starting-blocks (~> (for/list ([line (in-list (string-split input "\n"))] |