diff options
| author | J.J <thechairman@thechairman.info> | 2023-12-22 12:11:14 -0500 |
|---|---|---|
| committer | J.J <thechairman@thechairman.info> | 2023-12-22 12:11:14 -0500 |
| commit | 96408d596363678b9f606cb1b3ab589c439e1400 (patch) | |
| tree | 60777cd153170f3b20da76eab8ec154d0e0e27eb /aoc2023-other | |
| parent | 7e81b8f2e98eaea4ec0da1193b5aed492d0a3c3a (diff) | |
| download | gleam_aoc-96408d596363678b9f606cb1b3ab589c439e1400.tar.gz gleam_aoc-96408d596363678b9f606cb1b3ab589c439e1400.zip | |
day 22 racket cleanup
Diffstat (limited to 'aoc2023-other')
| -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"))] |