99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
-
-
+
+
-
-
-
-
-
+
+
+
+
|
[else (cons ch lst)])))))
;; Is point p inside grid g? Film at 11
(define (inside-grid? g p)
(match-define (posn px py) p)
(and (>= px 0)
(>= py 0)
(< px (grid-rows g))
(< py (grid-cols g))))
(< px (grid-cols g))
(< py (grid-rows g))))
;; Get a list of a positions neighboring points, ensuring none are out of bounds
(define (neighbor-coords g pos)
(match-define (posn x y) pos)
(filter (curry inside-grid? g)
(map (lambda (lst) (apply posn lst))
`((,(- x 1) ,y)
(,x ,(+ y 1))
(,(+ x 1) ,y)
(,x ,(- y 1))))))
|