d20 p1
parent
b98bf1265a
commit
2734b3363c
@ -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)
|
||||
@ -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
|
||||
Reference in New Issue