diff options
| author | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-12-14 10:47:07 -0500 |
|---|---|---|
| committer | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-12-14 10:47:07 -0500 |
| commit | 8b4300ef235cc6bcb812fcf1226aadb01edecd7b (patch) | |
| tree | bdeaac242b2d6bfdb83b4da63a6948deef40d358 /2022 | |
| parent | b70835069c1bcc8a9ca316b1795de3bfd6d6f12e (diff) | |
| download | gleam_aoc-8b4300ef235cc6bcb812fcf1226aadb01edecd7b.tar.gz gleam_aoc-8b4300ef235cc6bcb812fcf1226aadb01edecd7b.zip | |
day 12 tweaks
Diffstat (limited to '2022')
| -rw-r--r-- | 2022/day-12/day-12.rkt | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/2022/day-12/day-12.rkt b/2022/day-12/day-12.rkt index 5e0c365..ed93453 100644 --- a/2022/day-12/day-12.rkt +++ b/2022/day-12/day-12.rkt @@ -1,7 +1,6 @@ #lang racket (require advent-of-code - fancy-app graph) (define raw-terrain (fetch-aoc-input (find-session) 2022 12 #:cache #true)) @@ -9,14 +8,15 @@ (define terrain-mesh (for*/hash ([(row x) (in-indexed (string-split raw-terrain))] [(col y) (in-indexed row)]) + (define p (cons x y)) (case col [(#\S) - (hash-set! special-points 'start (cons x y)) - (values (cons x y) 0)] + (hash-set! special-points 'start p) + (values p 0)] [(#\E) - (hash-set! special-points 'end (cons x y)) - (values (cons x y) 25)] - [else (values (cons x y) (- (char->integer col) (char->integer #\a)))]))) + (hash-set! special-points 'end p) + (values p 25)] + [else (values p (- (char->integer col) (char->integer #\a)))]))) (define (neighbors p) (match-define (cons x y) p) |