mbutterick
/
aoc-racket
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

d15 p2

Browse Source
master
Matthew Butterick 5 years ago
parent 73c7aedc76
commit cbe6783670
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File

10
2019/15.rkt
Unescape Escape View File

@ -84,11 +84,15 @@
(define left-dir (turn-left dir)) (define left-dir (turn-left dir))
(match (step (dir->cmd left-dir)) (match (step (dir->cmd left-dir))
['wall (explore loc (turn-right dir))] ['wall (explore loc (turn-right dir))]
[res (add-edge! g loc (+ loc left-dir)) [eo (add-edge! g loc (+ loc left-dir))
(match res (match eo
['empty (explore (+ loc left-dir) left-dir)] ['empty (explore (+ loc left-dir) left-dir)]
['oxygen (+ loc left-dir)])])) ['oxygen (+ loc left-dir)])]))
;; 1 ;; 1
(check-eq? (sub1 (length (fewest-vertices-path g 0 (explore 0)))) 272) (define oxygen-loc (explore 0))
(check-eq? (sub1 (length (fewest-vertices-path g 0 oxygen-loc))) 272)
;; 2
(define-values (path-lengths _) (bellman-ford g oxygen-loc))
(check-eq? (apply max (hash-values path-lengths)) 398)