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)]