RosettaCodeData/Task/Arrays/Common-Lisp/arrays-1.lisp

5 lines
101 B
Common Lisp

(let ((array (make-array 10)))
(setf (aref array 0) 1
(aref array 1) 3)
(print array))