7 lines
214 B
Text
7 lines
214 B
Text
(define (make-identity-matrix n)
|
|
(map (lambda (i)
|
|
(append (repeat 0 i) '(1) (repeat 0 (- n i 1))))
|
|
(iota n)))
|
|
|
|
(for-each print (make-identity-matrix 3))
|
|
(for-each print (make-identity-matrix 17))
|