aboutsummaryrefslogtreecommitdiff
path: root/2021/day-15/day-15.rkt
diff options
context:
space:
mode:
authorJ.J <thechairman@thechairman.info>2023-11-30 17:10:00 -0500
committerJ.J <thechairman@thechairman.info>2023-11-30 17:10:00 -0500
commit8ab65dc2da1742eb86ec636c50c7018385b68167 (patch)
treec4fd556aca9b867cfa1f2f174128c30857353884 /2021/day-15/day-15.rkt
parentfafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1 (diff)
downloadgleam_aoc-8ab65dc2da1742eb86ec636c50c7018385b68167.tar.gz
gleam_aoc-8ab65dc2da1742eb86ec636c50c7018385b68167.zip
prep for 2023, renaming for consistency
Diffstat (limited to '2021/day-15/day-15.rkt')
-rw-r--r--2021/day-15/day-15.rkt49
1 files changed, 0 insertions, 49 deletions
diff --git a/2021/day-15/day-15.rkt b/2021/day-15/day-15.rkt
deleted file mode 100644
index 5e61c55..0000000
--- a/2021/day-15/day-15.rkt
+++ /dev/null
@@ -1,49 +0,0 @@
-#lang racket
-(require "../../jj-aoc.rkt"
- threading
- graph)
-
-(struct Point (x y) #:transparent)
-
-(define data
- (for/fold ([cells (hash)]) ([row (in-lines (open-day 15 2021))] [x (in-naturals)])
- (for/fold ([cells cells]) ([n (in-string row)] [y (in-naturals)])
- (hash-set cells (Point x y) (~> n string string->number)))))
-
-(define x-max (~>> data hash-keys (map Point-x) (apply max)))
-(define y-max (~>> data hash-keys (map Point-y) (apply max)))
-
-(define (neighbors pt d)
- (match-define (Point x y) pt)
- (~>> (list (Point (add1 x) y) (Point (sub1 x) y) (Point x (add1 y)) (Point x (sub1 y)))
- (filter (curry hash-has-key? d))))
-
-(define (grid-graph d)
- (weighted-graph/directed (for*/list ([coord (in-list (hash-keys d))]
- [neighbor (in-list (neighbors coord d))]
- [weight (in-value (hash-ref d neighbor))])
- (list weight coord neighbor))))
-
-;; part 1
-(define (find-path-weight d)
- (define grid (grid-graph d))
- (let-values ([(node-distances _) (dijkstra grid (Point 0 0))])
- (define xm (~>> d hash-keys (map Point-x) (apply max)))
- (define ym (~>> d hash-keys (map Point-y) (apply max)))
- (hash-ref node-distances (Point xm ym))))
-
-(~> data find-path-weight time)
-
-;; part 2
-(define nine-cycle (in-cycle (inclusive-range 1 9)))
-
-(define (expand-data data)
- (for/fold ([cells (hash)]) ([coord (in-list (hash-keys data))])
- (match-define (Point x y) coord)
- (for*/fold ([cells cells])
- ([n (in-range 5)] [m (in-range 5)] [val (in-value (hash-ref data coord))])
- (hash-set cells
- (Point (+ x (* n (add1 x-max))) (+ y (* m (add1 y-max))))
- (sequence-ref nine-cycle (+ val n m -1))))))
-
-(~> data expand-data find-path-weight time)