如何交换一个表中任意两项的位置

liujing

有一任意表，例如 （"a" "b" "c" "d" "e" "f"），我想要交换其中的任意两项的位置，比如第二项 "b" 和第五项 "e",应返回 （"a" "e" "c" "d" "b" "f"），我想这个问题应该并不难，可是我试过很多方法，都觉得不太好。谁有比较好的方法请赐教。

陈伯雄

陈伯雄

liujing

我用的方法是:
(defun l-par-swap (par n1 n2 / p n return)
        (setq n 0)
        (foreach p par
                (if (= n n1) (setq p (nth n2 par)) )
                (if (= n n2) (setq p (nth n1 par)) )
                (setq return (append return (list p)) )
                (setq n (+ n 1))
        )
        (setq return return)
)
它的时间性能不好，当表的长度大于1000后，所用时间不能忍受。

hothua

(defun swap(plist n1 n2 / v1 v2
  (setq v1 (nth n1 plist)
        v2 (nth n2 plist)
        plist (subst 特殊值 v1 plist)
        plist (subst v1 v2 plistt)
        plist (subst v2  特殊值 plist)
  )
  plist
)
;这样，当表较大时速度会快些

liujing

谢谢您的建议！
这个方法我也试过了，但是使用起来有很多限制。
1。要求原表中的各项维一，不能有相同的项。
2。特殊值的选取要根据实际情况而定，它不能和原表中的任一项相同。
所以，这个方法不能作为一个通用的子程序来使用。
请问大家，有没有更通用一点的方法。

陈伯雄

liujing

liujing

利用member和append来返回好像也可以，程序如下：
(defun swap (par n1 n2 / m1 m2 par1 l p1 p2 p3 return)
        (setq m1 (nth n1 par)
              m2 (nth n2 par)
              par1 (reverse par)
              l (length par)
              p1 (cdr (member m1 par1))
              p2 (cdr (member m1 par))
              p3 (cdr (member m2 par))
        )
        (while (> (length p1) n1) (setq p1 (cdr (member m1 p1))) )
        (while (> (length p2) (- l n1 1)) (setq p2 (cdr (member m1 p2))) )
        (setq p2 (cdr (member m2 (reverse p2))) )
        (while (> (length p2) (- n2 n1 1)) (setq p2 (cdr (member m1 p2))) )
        (while (> (length p3) (- l n2)) (setq p3 (cdr (member m2 p3))) )
        (print (reverse p1))
        (print (reverse p2))
        (print p3)
        (setq return (append (reverse p1) (list m2) (reverse p2) (list m1) p3))
);swap
但是如果原表中多数项都相同时，性能并不比用foreach好。

陈伯雄