From fcf2ad8776a124274b9c80a7df1f49ee7e3b363c Mon Sep 17 00:00:00 2001 From: HJ Date: Sat, 23 Dec 2023 11:08:28 -0500 Subject: day 23 racket complete --- aoc2023-other/day-23/day-23.rkt | 30 ++---------------------------- 1 file changed, 2 insertions(+), 28 deletions(-) diff --git a/aoc2023-other/day-23/day-23.rkt b/aoc2023-other/day-23/day-23.rkt index ba8ba83..0430255 100644 --- a/aoc2023-other/day-23/day-23.rkt +++ b/aoc2023-other/day-23/day-23.rkt @@ -2,35 +2,9 @@ (require advent-of-code threading - graph - data/queue) + graph) -(define input* - "#.##################### -#.......#########...### -#######.#########.#.### -###.....#.>.>.###.#.### -###v#####.#v#.###.#.### -###.>...#.#.#.....#...# -###v###.#.#.#########.# -###...#.#.#.......#...# -#####.#.#.#######.#.### -#.....#.#.#.......#...# -#.#####.#.#.#########v# -#.#...#...#...###...>.# -#.#.#v#######v###.###v# -#...#.>.#...>.>.#.###.# -#####v#.#.###v#.#.###.# -#.....#...#...#.#.#...# -#.#########.###.#.#.### -#...###...#...#...#.### -###.###.#.###v#####v### -#...#...#.#.>.>.#.>.### -#.###.###.#.###.#.#v### -#.....###...###...#...# -#####################.#") - -(define input (fetch-aoc-input (find-session) 2023 23 #:cache ".")) +(define input (fetch-aoc-input (find-session) 2023 23 #:cache #true)) (define trails (for*/hash ([(row r) (in-indexed (string-split input "\n"))] [(col c) (in-indexed row)] -- cgit v1.2.3