Перемещение элементов в общем списке Lisp

Question

Есть ли общая функция Lisp, которая будет заменять два элемента в списке с учетом их индексов и возвращать измененный список?

Answer 1

Вы можете использовать rotatef:

(rotatef (nth i lst) (nth j lst)) 

Конечно, список индексация может быть дорогой (стоимость O (размера списка)), так что если вы делаете это с любой регулярностью, вы бы скорее хотели использовать массив:

(rotatef (aref arr i) (aref arr j)) 

Answer 2

Я хотел бы избежать индексации в списке дважды, используя nthcdr, чтобы получить корд клетки конс, содержащей первый элемент, который вы хотите поменять, а затем использовать elt к г и оставшийся элемент из подсписок. Это означает, что вам нужно только индексировать, начиная с главы списка один раз.

(let ((list-tail (nthcdr i list))) 
    (rotatef (car list-tail) 
      (elt list-tail (- j i))) 
    list) 

По крайней мере, с моей точки зрения, это достаточно утомительно, чтобы оправдать функцию.