2
(require racket/string)
5
(define (in-diagonal? i j size)
8
(= (+ i j) (sub1 size))))
10
(define (make-big-x n)
11
(let ([size (+ (* 2 n) 1)])
13
(for/list ([i (in-range size)])
17
(if (in-diagonal? i j size)
23
(for ([i (in-range 5)])
24
(displayln (make-big-x i))
b'\\ No newline at end of file'