From 4484aa863a22e93495cdd2ebe24efc8a23d03b7b Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 10 Dec 2019 18:50:20 -0800 Subject: [PATCH] rectangularity --- 2019/10.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/2019/10.rkt b/2019/10.rkt index 6bd9979..fd7c08b 100644 --- a/2019/10.rkt +++ b/2019/10.rkt @@ -5,7 +5,7 @@ (for*/list ([(row ridx) (in-indexed (string-split str))] [(col cidx) (in-indexed row)] #:when (char=? #\# col)) - (+ cidx (* +i ridx)))) + (make-rectangular cidx ridx))) (define ((count-visible roids) roid-origin) (length (remove-duplicates (for/list ([roid (in-list roids)]