From cbe67836705c7873080e7a4e3f9865d921d635ad Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 27 Dec 2019 07:38:02 -0800 Subject: [PATCH] d15 p2 --- 2019/15.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/2019/15.rkt b/2019/15.rkt index 9949881..72fec54 100644 --- a/2019/15.rkt +++ b/2019/15.rkt @@ -84,11 +84,15 @@ (define left-dir (turn-left dir)) (match (step (dir->cmd left-dir)) ['wall (explore loc (turn-right dir))] - [res (add-edge! g loc (+ loc left-dir)) - (match res + [eo (add-edge! g loc (+ loc left-dir)) + (match eo ['empty (explore (+ loc left-dir) left-dir)] ['oxygen (+ loc left-dir)])])) ;; 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) \ No newline at end of file