From 8ab65dc2da1742eb86ec636c50c7018385b68167 Mon Sep 17 00:00:00 2001 From: "J.J" Date: Thu, 30 Nov 2023 17:10:00 -0500 Subject: prep for 2023, renaming for consistency --- 2022/day-12/day-12.rkt | 46 ---------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 2022/day-12/day-12.rkt (limited to '2022/day-12') diff --git a/2022/day-12/day-12.rkt b/2022/day-12/day-12.rkt deleted file mode 100644 index c3f01ac..0000000 --- a/2022/day-12/day-12.rkt +++ /dev/null @@ -1,46 +0,0 @@ -#lang racket - -(require advent-of-code - graph) - -(define raw-terrain (fetch-aoc-input (find-session) 2022 12 #:cache #true)) -(define special-points (make-hash)) - -(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 p) - (values p 0)] - [(#\E) - (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) - (for*/list ([dx (in-list '(-1 0 1))] - [dy (in-list '(-1 0 1))] - #:when (= 1 (abs (+ dx dy))) - #:do [(define p* (cons (+ x dx) (+ y dy)))] - #:when (hash-has-key? terrain-mesh p*)) - p*)) - -(define paths - (directed-graph (for*/list ([p (in-list (hash-keys terrain-mesh))] - [p* (in-list (neighbors p))] - #:unless (> (sub1 (hash-ref terrain-mesh p*)) - (hash-ref terrain-mesh p))) - (list p p*)))) - -;; part 1 -(time (match-define-values (distances _) (bfs paths (hash-ref special-points 'start))) - (hash-ref distances (hash-ref special-points 'end))) - -;; part 2 -(time (for/lists - (lengths #:result (apply min lengths)) - ([start (in-list (hash-keys terrain-mesh))] #:when (= 0 (hash-ref terrain-mesh start))) - (match-define-values (distances _) (bfs paths start)) - (hash-ref distances (hash-ref special-points 'end)))) -- cgit v1.2.3