I basically just want to change the lists in the below function
without using setf or setq
Eg make-array newarray1 newarray2 array3 array4 array5
I'm using an array of lists
Code: Select all
(defparameter *start-state* (make-array '5 :initial-contents '((10 20 30 40 50)()()()())))
(defun measurement (state)
(let* ((array1 (aref state 0))
(array2 (aref state 1))
(array3 (aref state 2))
(array4 (aref state 3))
(array5 (aref state 4))
(newarray1 (cdr array1))
(newarray2 (cons (car array1) array2))))