RosettaCodeData/Task/Arrays/Common-Lisp/arrays-1.lisp
2023-07-01 13:44:08 -04:00

4 lines
101 B
Common Lisp

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