From ad78d437434545b344d57627f3da3c3d2ca1a844 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 20 Dec 2020 09:24:24 -0800 Subject: [PATCH] typo --- 2020/20.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/2020/20.rkt b/2020/20.rkt index f313674..d397441 100644 --- a/2020/20.rkt +++ b/2020/20.rkt @@ -11,7 +11,7 @@ (bitwise-bit-set? x b)))] #:when b) (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) @@ -39,7 +39,7 @@ (for/list ([edge (in-list (tile-edges tile))]) (for/first ([other-tile (in-list (remove tile tiles))] #: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))))) other-tile)))