RosettaCodeData/Task/Arrays/Common-Lisp/arrays-1.lisp
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

4 lines
101 B
Common Lisp

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