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

rectangularity

Browse Source
master
Matthew Butterick 5 years ago
parent d7050675b9
commit 4484aa863a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File

2
2019/10.rkt
Unescape Escape View File

@ -5,7 +5,7 @@
(for*/list ([(row ridx) (in-indexed (string-split str))] (for*/list ([(row ridx) (in-indexed (string-split str))]
[(col cidx) (in-indexed row)] [(col cidx) (in-indexed row)]
#:when (char=? #\# col)) #:when (char=? #\# col))
(+ cidx (* +i ridx)))) (make-rectangular cidx ridx)))
(define ((count-visible roids) roid-origin) (define ((count-visible roids) roid-origin)
(length (remove-duplicates (for/list ([roid (in-list roids)] (length (remove-duplicates (for/list ([roid (in-list roids)]