From 2734b3363c40c3945855feeb34e7b3e1f1c160f0 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 29 Dec 2019 21:32:12 -0800 Subject: [PATCH] d20 p1 --- 2019/20.rkt | 34 ++++++++++++++ 2019/20.rktd | 127 +++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 161 insertions(+) create mode 100644 2019/20.rkt create mode 100644 2019/20.rktd diff --git a/2019/20.rkt b/2019/20.rkt new file mode 100644 index 0000000..e528585 --- /dev/null +++ b/2019/20.rkt @@ -0,0 +1,34 @@ +#lang br +(require racket/file rackunit racket/set graph) + +(define str (file->string "20.rktd")) + +(define (find-cells pred) + (for*/hasheqv ([(row ridx) (in-indexed (string-split str "\n"))] + [(c cidx) (in-indexed row)] + #:when (pred c)) + (values (make-rectangular cidx ridx) c))) + +(define passage-locs (find-cells (λ (c) (char=? c #\.)))) +(define letter-locs (find-cells char-alphabetic?)) + +(define g (unweighted-graph/undirected null)) + +(for* ([loc (in-hash-keys passage-locs)] + [delta (list 1 -1 +i -i)]) + (when (hash-has-key? passage-locs (+ loc delta)) + (add-edge! g loc (+ loc delta))) + (when (hash-has-key? letter-locs (+ loc delta)) + (add-edge! g loc (string->symbol + (apply string ((if (member delta (list -1 -i)) + reverse + values) (for/list ([d (list delta (* 2 delta))]) + (hash-ref letter-locs (+ loc d))))))))) + +(for ([v (in-vertices g)] + #:when (and (symbol? v) (not (memq v '(AA ZZ))))) + (apply add-edge! g (get-neighbors g v))) + + +;; 1 +(check-eq? (- (length (fewest-vertices-path g 'AA 'ZZ)) 3) 638) \ No newline at end of file diff --git a/2019/20.rktd b/2019/20.rktd new file mode 100644 index 0000000..c82a40f --- /dev/null +++ b/2019/20.rktd @@ -0,0 +1,127 @@ + T M S R H F + J K S Y D P + ###########################################.#######.###########.#######.#####.#####.############################################### + #.......#...#...#...........#...#.....#.#.......#...........#.....#.......#...#.................#.#...#...#...#...#...#.......#...# + #######.###.#.#######.###.#.#.#####.###.#####.#########.#####.#.###.#######.#.###.###.#.#.#######.#.###.###.#.#.###.#.#######.#.### + #...#.....#...#.#.#.#.#.#.#.#.....#...#.#.....#...........#...#.#.....#.....#.#.#.#.#.#.#...#.............#.#.......#.#.....#...#.# + #.#####.###.#.#.#.#.###.###.###.###.###.#.###.#####.###.#.###.#.#####.#.###.###.#.#.#####.###.#.###.#####.###.#.#.#.#######.#.###.# + #.....#.....#.#...#...#.....................#.#.....#.#.#.#.#.#...#...#.#...#...#.......#...#.#.#.#.#...#.#...#.#.#.#.............# + ###.#####.###.#.###.###.###.#.###.#######.###.#.#.###.#####.#.#####.#.###.###.#.#.#.###########.#.###.###.#.#######.#####.#######.# + #.....#...#.............#.#.#.#.#.#...#.#...#.#.#.....#.#.......#...#.#...#...#.#.#.........#.....#...#.......#...#.#...#.#.#...#.# + #####.#########.#.###.#.#.#.#.#.#.###.#.#.#######.###.#.#####.#####.#####.#.###.#.#####.###.###.#.###.###.#.###.#####.#####.###.#.# + #...#...#.#.....#.#...#...#.#.#.....#.......#...#...#...#.#.#...#.....#.......#.#.....#.#...#.#.#.......#.#.......#.#.#.....#.#...# + ###.#.###.#.###.###.#.###.#.#.#.###.###.#.###.###.#####.#.#.###.#.#############.#.###.#######.#.###.#####.###.#.#.#.#.#####.#.###.# + #.....#...#.#...#...#...#.#.#.#...#.#.#.#.......#.#.......#.#.#.#...#.#...#...#.#...#.#.#.#.#.....#.#...#.#...#.#.....#.#.......#.# + #####.#.###########.#################.###.#.###.###.###.#.#.#.#.#.###.###.#.#.#.#.#####.#.#.#.#######.###########.#####.###.###.#.# + #.#.#...#.#...#.........#.......#.#.......#.#.#.#.#...#.#.#.....#...#.#.....#...#.........................#.....#.....#...#.#.....# + #.#.#.###.###.#######.#.#######.#.#.###.#.###.###.#####.###.#.#.#.###.###.#.###.#.###.###.#.###.#####.#.#.###.#####.#####.#######.# + #.#...#.#...#...#.#.#.#.#.#...........#.#...#.....#.#...#.#.#.#.#...#.....#...#.#.#.#...#.#...#...#.#.#.#.#.....#.#.#.#.....#...#.# + #.###.#.###.###.#.#.#####.#.#######.#######.#.#####.###.#.#####.#.#####.#.#######.#.#######.#####.#.###.#.#.#####.###.###.#####.#.# + #.....#...#.........#.#.....#.......#.#.......#...#...#.....#...#...#.#.#.....#.....#...#.#...#.#.....#.#.#.#...#.......#...#.#...# + ###.###.#######.#.###.#.#.#####.#.###.###.#.#.#.#####.#.#######.#.###.###.###.#.###.###.#.#####.#.#.###.###.#.###.#######.###.###.# + #.....#.#.#...#.#.#...#.#.#.#.#.#.#.......#.#...#.#.....#.......#...#.....#...#.#...#.....#.#...#.#.#.#.#...#.#.#.#...#.#.....#.#.# + ###.###.#.#.###.#####.#####.#.#######.#.#.#.###.#.###.#.#.###.#.#.#######.#########.#.#.###.#.#######.#####.#.#.#.#.###.#.#####.#.# + #...#.......#.#.#...#...#.....#.......#.#.#.#...#...#.#.#.#...#.#.......#.#.#.#.#.#...#.#.........#.....#...........#.#...#...#.#.# + ###.#####.###.#.#.#####.#####.#.#.#######.###.###.#####.#####.###.###.###.#.#.#.#.#####.#.###.#######.#.#.###.#.#.###.###.###.#.#.# + #.....#...#...#...#...#.#.....#.#.#...#...#.#.#.....#...#...#...#.#.#.#.........#.........#.......#.#.#.#...#.#.#...#...#.#...#...# + ###.#####.#.###.###.###.###.#.###.###.###.#.###.#.#.#.###.#.#.###.#.###########.#.#######.#####.###.#.#########.#####.###.###.#.#.# + #...#.........#...#...#.#...#...#...#.#.....#.#.#.#.....#.#.....#.......#.....#.#.....#.......#.........#.#.........#.......#.#.#.# + ###.###.###.###.#.###.#.###.#.#######.#####.#.###.#######.#####.###.#.###.###.#.###.###.#.###.###.#######.#.###.#.#####.###.#.###.# + #.......#.#.#...#.#...#.#.#.#.#.....#.#.....#.......#...#.....#.#...#.#.....#...#.#...#.#...#...#.#.#...#.#.#...#...#...#.#.#.#...# + #######.#.#####.#####.#.#.###.###.###.###.#########.#.#.#.###.###.#########.###.#.#.#####.#########.###.#.#####.#######.#.###.###.# + #...#.....#...#...#.#...#.#...#.....#.....#.....#...#.#.#.#...#...#.#...#.....#.#.....#.#...#.#.......#...#.#.......#.....#.#...#.# + #.#######.#.###.###.#.###.###.###.###.###.#.#.###.###.#.#.#.###.#.#.#.###.#######.#####.###.#.#####.###.###.###.#####.###.#.#.###.# + #...#.........#.....#.....#.....#.#...#.....#...#.....#.#.#...#.#.....#.........#.#.....#.......#.....#.#.#...#...#.#...#.#...#...# + ###.#.#.#######.#####.#########.#.#############.###.###.###.#.###.###.#.#######.#.#.###.#########.#####.#.#.#####.#.#####.###.###.# + #.#.#.#.#...#...#...#.#.#...#.....#...............#.#...#...#.#.....#.#.#.......#...#.......#.....#.#.#.....#.......#.....#.#.#...# + #.#.###.###.###.###.#.#.###.###.#########.###########.#####.#######.#####.###########.###########.#.#.#.###.###.#.#######.#.#.#.### + #.......#.........#.....#.#...#.#.# G R H J N E #.#...#.#.#.#.#.#.#.#.....#.#.#...# + ###.#.#########.#######.#.#.###.#.# Y Y D S Z S #.###.###.#.#.#.###.#####.#.#.#.### + #...#.#...#.#.#.#...#.#.#.#...#...# #.......#.......#...#.#............ES + #####.###.#.#.#.###.#.#.#.###.#.### #.#####.#.###.#####.#.###.#######.# + #.#...................#.#.......#.# #...#.#...#.....#.#.#...........#.# + #.###.#######.#######.#.#.###.###.# ###.#.#####.#.###.#.#####.#.#.#.### + #...#.....#.........#.......#......YL XA..#.....#...#...#...#.#...#.#.#.#.# + #.#####.#####.#.#.#######.#.#.#.### #.#####.#.#######.###.#####.#.###.# +JW....#.....#...#.#.....#.#.#.#.#...# #.......#...................#.#.#.# + #.###.###########.#.###.#######.### #####.###.#.#.#################.#.# + #.....#.....#.#...#.#.......#.....# GU..#.....#.#.#.#...#.......#.......# + #.###.###.###.###########.#.####### #.###############.#####.###.###.#.# + #...#.#.......#.#.#.#...#.#...#....JW #.......#.#.#...#.#.#.#...#...#.#..HK + #.#####.#######.#.#.#.#####.###.#.# #.#######.#.#.###.#.#.#.#.#.#.##### + #.#.#...#...#.......#.#.#.#.....#.# #.......................#...#.#.#.# + ###.###.###.#####.###.#.#.#.#.#.### ###############################.#.# +YF....#.....#.....#.....#...#.#.#...# #.........#.........#.......#......YU + #.###.###.#.###.#.#.#####.#######.# #.###.#.#.###.#####.#.#.#.#.###.#.# +AA......#.....#.#...#...............# #.#.#.#.#.#...#.#.....#.#.#.....#.# + #.###.###.#.#.###.###########.##### #.#.#####.###.#.#.#.###.#####.##### + #...#...#.#.#.#.....#.......#.#...# MG........#.......#.#...#...#.....#.# + #.###.#######.#######.#####.###.#.# ###.#.#######.#####.###.###.#####.# + #...#...#.#.#.....#.......#.#.#.#..NS #.#.#.#...#.......#.#.#...#.#.#.#..OP + #########.#.#.#.#########.#.#.#.### #.###.#.#######.###.#.#####.#.#.#.# + #.....#.#.....#...#...#...#...#...# #.#...#.....#.....#.#...#.#.#......GU + ###.###.#.###.#.#.#.#.#.#####.###.# #.#####.#.#############.#.###.###.# +NK..........#...#.#...#.....#.#.....# YU....#...#.#...#.#.#.#.....#.....#.# + ###########################.#####.# #.#####.#.###.#.#.#.###.#.###.###.# + #...................#.......#.#.#.# SS........#...............#.......#.# + ###.###.#######.#.#.###.#.###.#.### #########.######################### + #...#.#.#.......#.#...#.#.........# #.......#.#.......#...#...#...#...# + #.###.#####.#.###.#.###.###.###.### #.#####.###.###.#.#.#.#.###.#.#.### +NZ..#...#...#.#...#.#.#.....#.#...#..OK MK....#...#.#.#...#...#...#...#...#..CK + ###.###.#####.#####.#.#.#.###.###.# #####.###.#.#####.###.###.#####.#.# + #.....#.#...#.#.#.....#.#.#.......# #.#.............#.#.#.#.....#.....# + ###.###.#.#####.###.#######.#.#.#.# #.#.#.#####.#####.#.#.#####.#####.# + #...........#.#.....#.....#.#.#.#.# #...#.#.....#.#...#.#.......#.#.#.# + #.###.###.###.###.#####.#.######### #############.#####.#########.#.### + #...#.#.#.......#.#.#...#.....#...# #...........................#.#....NS + ###.#.#.#.#########.###.###.#.#.#.# #.###.#.###.#.#######.#####.#.#.### +YL..#.#...#.#.#.#.#...#.#...#.#...#..OP #...#.#.#.#.#...#.....#.#.........# + #.#.#.#####.#.#.#.###.###.#.#.###.# #.#.#####.#.###########.#######.### + #...#.....................#.#.#.#.# HK..#.#.#...#.#...#...#.#.#.......#.# + ###########.###.###.###########.### #####.#.#####.###.###.#.#########.# + #.#...#...#.#.....#...#...#.....#.# FP..#.#.#...#.#...#...........#.#....CD + #.###.#.#.#########.###.#.#.#.#.#.# #.#.#.#.#.#.###.#.#.#.#.#####.#.### + #.......#...#...#.#.#...#.#.#.#...# #.....#.#.....#...#.#.#.#.........# + #.#######.###.###.###.#.#.#.###.### #####.#.#####.#.#######.#.#.#####.# + #...#.......#...#.#...#.#...#......FK #.#...#...#...#.#.#.#...#.#.#.#...# + #.###.#######.###.#####.###.###.### #.#.#####.#.###.#.#.###.#####.#.### +OE....#.....................#...#...# #.........#.........#.............# + #.#####.###.###.#.#.###.#.#.###.### C C I O N Y T ###.###.#.###.#.#.#.#.#.#.#####.### + #...#...#.....#.#.#...#.#.#.#...#.# K D J E K F J #...#...#...#.#.#.#.#.#.#...#...#.# + #.#####.###.#.#.#.#.###.###.#####.#######.#######.#######.#########.#######.#######.#######.#####.###.###.###.#########.#########.# + #.#.#.....#.#.#.#.#.#.....#...#.......#.#...#.....#.......#.#...#...#...........#...#.....#...#.....#...#.#.......#...............# + #.#.#.#.#.#######.###.#.###.#.#####.###.###.###.#####.#####.#.#.#.#.###.#.#.#.###.#####.#.#.#.###.#.#.###.###.#####.#.###.###.#.#.# + #.#...#.#...#.#...#...#.#...#.#.#.........#.#.......#.#...#.#.#...#.#...#.#.#.#.....#...#...#...#.#.#.#...#.......#.#.#.#.#...#.#.# + ###.###.#.###.###.#.#.#####.###.#####.###.#.#.###.#.#.#.#.#.###.#.#.#.###.#########.###.#####.###.#####.#######.###.###.#.#######.# + #...#.#.#...#...#.#.#.#.#.......#...#...#...#.#...#.#...#...#...#.#.#...#...#.....#.#.....#.....#.#.#.#...#.......#.#.........#...# + #.#.#.#.#####.###.###.#.###.#.#####.###.#####.#.###########.###.#####.#.#######.#.#.#.###.#########.#.#.#.#####.#####.###.#.#.###.# + #.#...#.#.....#.....#...#...#.#.............#.#.......#...#...#...#.#.#.....#...#.#.#.#.........#.....#.#.#...#...#...#.#.#.#...#.# + #.###.#.#.#.#####.###.#.#########.###.#.#####.#########.###.###.###.#####.###.###.#.###.###.###.#.#####.###.###.#####.#.###.#.###.# + #.#...#...#.#.#.....#.#...#.......#...#...#.....#...#.......#...#...........#...#.....#.#...#.#...#...#.#...#.....#...#.#...#.#.#.# + #.###.#.#.###.#######.#.#.#####.#####.#####.#.###.#.#####.###.#.#####.#########.###.#####.###.#.###.#####.###########.#.###.###.### + #.#...#.#.........#...#.#.....#.#.#.#.#...#.#.....#.#...#...#.#.#.......#.......#.....#.#...#.#.#.#.#.#...#.#.#.#.#...#...........# + ###.#####.###.###.#####.#########.#.#.#.#######.#####.###.###.#######.#####.#.#########.###.#.###.#.#.#.###.#.#.#.#######.#.#.##### + #...#.......#.#.#.#...#.#.#...............#.........#.#.#...#.......#.#...#.#.......#...#.......#.#...................#...#.#...#.# + ###.#####.#.###.#####.###.#####.#.#.###.#.###.###.#.#.#.#.#.#######.#.#.#.#########.#.#####.#####.#.#########.###.#####.#.#.#.#.#.# + #.#...#.#.#...#...#.............#.#.#...#...#.#.#.#.#.....#...#.....#...#.......#.....#...#.#.#.........#...#.#.#.#.....#.#.#.#...# + #.#.#.#.#.#.#####.###.###.#.#############.###.#.#####.#############.###.#.#.#.###.#######.#.#.###.#######.#####.#####.#####.#####.# + #...#.#...#.#...#.#...#.#.#.#...#.#...#.#.#.#.#.#...#...#.#.#.#.#.....#.#.#.#.#.......#.#.....#.#.#.......#.#.....#.....#.......#.# + ###.#####.###.#.#.#####.#####.#.#.#.#.#.#.#.#.###.#.#.###.#.#.#.#.#####.###.#####.#.#.#.###.###.#.#.#####.#.#####.#########.#.#.### + #.....#...#.#.#.........#...#.#.....#.......#.#...#.#.#.#...........#.#.#...#.#...#.#.#.#.#...........#...................#.#.#...# + ###.###.#.#.#####.#.###.###.#######.###.###.#.###.#.#.#.#####.#######.#.#.###.#####.###.#.#.#####.#.#.#######.###.#####.#####.#.### + #.....#.#.....#...#...#...#.#.#.#.....#.#...#.....#.#...#.#.#.#.....#.#.#.#.....#...#.........#.#.#.#...#...#...#...#...#.....#...# + ###.###.#.#.#.#####.###.###.#.#.#######.###.#.#####.#.###.#.#.###.#.#.###.###.#####.#####.###.#.#.#######.#######.###.#.###.#.#.### + #.#.#...#.#.#.#.....#.#...#...#.#.#...#...#.#.#.....#.....#.......#...#.........#...#...#...#...#...#...........#.#.#.#.#.#.#.#...# + #.#.#####.###.#######.###.###.#.#.###.#####.###.#####.#########.###.#.#####.#.#####.#.#.#.###.#######.#######.###.#.###.#.#.#.#.#.# + #.......#...#.#.#.#.............#...#.#.#...#.......#.......#.....#.#.....#.#.#.#...#.#.....#...#.#.#.#.....#...#.#...#.#.#.#.#.#.# + ###.#.###.###.#.#.#.#####.###.#.###.#.#.###.#.#####.#####.###.###.#.###.###.###.#.#.#.#####.#####.#.#.#.###.#####.#.#####.######### + #.#.#.#...#.......#.#.....#...#.............#.#.....#.....#.#.#.#.#.#.#.#.#.#...#.#.#...#.................#.....#.#.......#.#.#...# + #.#.#######.###.#####.#.#.#.###.#####.#.#########.###.#####.###.###.#.###.#.###.###.###.###.#.#######.#.###.#######.#.###.#.#.#.#.# + #.....#.......#...#.#.#.#.#...#.#.....#.#.......#.#.......#.#.........#.#...#.......#...#.#.#.#.#.#...#...#.........#.#.........#.# + #.###.#####.###.###.###.#.#.###.#.#.#.###.#.#.#.#.#######.#.###.#.#.###.###.#.#######.###.#####.#.#.#.#######.###.#####.#.#.####### + #...#.#.......#.#.#.....#.#.#...#.#.#.#...#.#.#...#...#.#...#...#.#.#.#.....#.......#.#...........#.#.....#.#.#.......#.#.#.#.#...# + #.#.#.###.#######.###.#.#####.#.#.###.#######.#######.#.###.#.#######.###.#.#######.#.###.#.###.#.###.#####.#####.#.#####.###.#.### + #.#.#...#.#...........#...#...#.#.#.......#...........#.....#.........#...#.....#...#.....#...#.#.#...........#...#.....#.........# + #####################################.#############.#####.###.###.#########.#####.#######.######################################### + M F J I Z G O X + G K S J Z Y K A \ No newline at end of file