4 lines
158 B
Common Lisp
4 lines
158 B
Common Lisp
(defun make-identity-matrix (n)
|
|
(let ((array (make-array (list n n) :initial-element 0)))
|
|
(loop for i below n do (setf (aref array i i) 1))
|
|
array))
|