vl做递归过程中的变量空间问题

macho3322

我写一个排序的小程序，如下
(defun dimidiate(mlist / lo hi len mid x)
(setq len (length mlist))
(if (> len 2)
(progn
(setq lo '() hi '())
(setq mid (car mlist))
(foreach x (cdr mlist)
(if (> x mid)
(setq hi (cons x hi))
(setq lo (cons x lo))
)
)
(setq mlist (append (dimidiate hi) (cons mid (dimidiate lo))))
)
(progn
(if (= len 2)
(progn
(if (< (car mlist) (cadr mlist))
(setq mlist (reverse mlist))
(setq mlist mlist)
)
)
(setq mlist mlist)
)
)
)
)
我输入(dimidiate '(1 2 3 4)),想要的到的是(4 3 2 1),可是结果总是(4 3 2 4 3 2)
用单步调试的方法，发现似乎是在做
(setq mlist (append (dimidiate hi) (cons mid (dimidiate lo))))
里(dimidiate lo)时，lo参数有问题，lo的值会随着前面(dimidiate hi)运行变化。
想了老半天不知道如何解决，望大侠们帮帮小弟，非常感谢

meflying

我这里返回的就是'(4 3 2 1)
排序可以用vl-sort函数，不用这么复杂，
AUTOLISP的排序函数：
;(xl-sort lst fun) = 以取代vl-sort函数，用法相同(lsp)---------------by 无痕
(defun xl-sort (lst fun / nlst)
(foreach n lst (setq nlst (xl-isort n nlst fun)))
)
(defun xl-isort (item lst fun / k nlst)
(setq k T
nlst (apply 'append
(mapcar '(lambda (x)
(if (and K ((eval fun) item x))
(progn (setq k nil) (list item x))
(list x)
)
)
lst
)
)
)
(if k
(append lst (list item))
nlst
)
)

macho3322

我试过用vl-sort，不知道怎么回事当表的长度比较长时，比方说有1000个时，返回的却不到1000个，所以我参考二叉树法自己编了这一个。


我再去运行一下，看看结果。

meflying

返回得不到1000个？不可能。。。建议你还是看看你使用时出现了什么问题吧，因为你给的这个函数在你那返回跟我的也不一样，


有现成的函数，却自己去编一个新的，不是多此一举吗

macho3322

我是想编几个排序的函数，比较一下的。


也真奇怪，今天两个都可以了，vl-sort的效率略为好一些。


莫非是被vl给玩一把，害得我苦思了好几天。


现在终于好了，多谢meflying兄指点。