mbutterick
/
aoc-racket
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

typo

Browse Source
master
Matthew Butterick 4 years ago
parent 85149bb897
commit ad78d43743
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
2020/20.rkt
Unescape Escape View File

@ -11,7 +11,7 @@
(bitwise-bit-set? x b)))] (bitwise-bit-set? x b)))]
#:when b) #:when b)
(arithmetic-shift 1 i))) (arithmetic-shift 1 i)))
(λ (x) (hash-ref cache x (λ () (edge-flipper x)))))) (λ (x) (hash-ref! cache x (λ () (edge-flipper x))))))
(struct tile (num edges) #:transparent) (struct tile (num edges) #:transparent)
@ -39,7 +39,7 @@
(for/list ([edge (in-list (tile-edges tile))]) (for/list ([edge (in-list (tile-edges tile))])
(for/first ([other-tile (in-list (remove tile tiles))] (for/first ([other-tile (in-list (remove tile tiles))]
#:when #:when
(for*/or ([other-edge (in-list (tile-edges other-tile))]) (for/or ([other-edge (in-list (tile-edges other-tile))])
(or (eq? edge other-edge) (eq? edge (edge-flipped other-edge))))) (or (eq? edge other-edge) (eq? edge (edge-flipped other-edge)))))
other-tile))) other-tile)))