交换 Lisp 列表中的元素

Question

我正在尝试实现一个返回 LIST 列表的函数（LIST 中的每个列表都是列表中两个元素交换的结果）。它应该根据每次交换形成的列表进行搜索。这是我解决 8 字谜题的程序的一部分。这是我到目前为止所拥有的

(setq *LIST* nil) 

(defun swapped_list(lst)
 (loop for j in (positions_to_swap) do
    (setq *LIST* (rotatef (nth pos lst) (nth j lst))
      *LIST*)

(swapped_list '(11 12 13 14 15 16 17 18 19))

如果 positions_to_swap 是 (0 2 5) 并且 pos 是 4，这应该返回 ((15 12 13 14 11 16 17 18 19) (11 12 15 14 13 16 17 18 19) (11 12 13 14 16 15 17 18 19))

我花了无数个小时尝试调试没有任何进展。我尝试了很多变体，但都不起作用。

Answer 1

如果 Positions_to_swap 为 (0 2 5) 并且 pos 为 4，则应返回 ((15
12 13 14 11 16 17 18 19) (11 12 15 14 13 16 17 18 19) (11 12 13 14 16
15 17 18 19))

(defun swap (list position positions-to-swap)
  (loop for position-to-swap in positions-to-swap
        for rotated-list = (copy-list list)
        do (rotatef (nth position rotated-list)
                    (nth position-to-swap rotated-list))
        collect rotated-list))

技巧：

CL-USER> (swap '(11 12 13 14 15 16 17 18 19) 4 '(0 2 5))
((15 12 13 14 11 16 17 18 19)
 (11 12 15 14 13 16 17 18 19)
 (11 12 13 14 16 15 17 18 19))