Trao đổi các phần tử trong danh sách Lisp chung

Question

Có một hàm Lisp chung nào sẽ hoán đổi hai phần tử trong danh sách được đưa ra chỉ mục của chúng và trả về danh sách đã sửa đổi không?

Answer 1

Bạn có thể sử dụng rotatef:

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

Tất nhiên, danh sách chỉ mục có thể tốn kém (chi phí O (kích thước danh sách)), vì vậy nếu bạn làm điều này với bất kỳ đều đặn, bạn thà muốn sử dụng một mảng:

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

Answer 2

tôi sẽ tránh lập chỉ mục vào danh sách hai lần bằng cách sử dụng nthcdr để có được những cdr của tế bào khuyết điểm có chứa các yếu tố đầu tiên mà bạn muốn trao đổi và sau đó sử dụng elt để g và phần tử còn lại ra khỏi danh sách con. Điều này có nghĩa là bạn chỉ phải thực sự lập chỉ mục bắt đầu từ đầu danh sách một lần.

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

Ít nhất theo quan điểm của tôi, điều này đủ tẻ nhạt để biện minh cho một hàm.