diff options
Diffstat (limited to 'aoc2023-other/day-23/day-23.rkt')
| -rw-r--r-- | aoc2023-other/day-23/day-23.rkt | 30 |
1 files 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)] |