[编程申请]：求教关于双标准排序的LISP程序

8th_day

各位大师小生需要一个可以将随机二维点进行“一条龙”排序的LISP程序。即按照先X后Y坐标顺序将所有点排序，小生苦思多日也无法得出好的算法。目前想到的只有将所有坐标按Y坐标分组（先分出层次），再按X坐标分别排序，最后再合并成果。但是这是一种不完全算法，按Y坐标分组时间距选择是个问题太大太小都不好，而且遇到不规则分布的点集时效果不好。诚心求教各位大师，请帮忙想一个完全算法。谢谢！希望能从大师们身上学到更多知识！（小生信箱是8th_day@sohu.com）

eachy

最初由 8th_day 发布
[B]各位大师小生需要一个可以将随机二维点进行“一条龙”排序的LISP程序。即按照先X后Y坐标顺序将所有点排序，小生苦思多日也无法得出好的算法。目前想到的只有将所有坐标按Y坐标分组（先分出层次），再按X坐标分别排序... [/B]

首先建议你查看 联机帮助 中的 vl-sort 和 vl-sort-i 解释
再请到 Lisp 论坛搜索有现成代码

8th_day

多谢指点，我回去看看再来求教！

逐月飞鸿

(defun sort(lst fun / a)
  (defun des(e1 e2)
    ((eval (cadr fun)) (car e1) (car e2))
  )
  (defun des2(e1 e2)
    ((eval (caddr fun)) (cadr e1) (cadr e2))
  )
  (cond
    ((= (car fun) 0) (setq a (vl-sort lst 'des)) (vl-sort a 'des2))
    ((= (car fun) 1) (setq a (vl-sort lst 'des2)) (vl-sort a 'des))
  )
)

8th_day

楼上的,多谢指点,不过,FUN,A,是什么我还是不明白,能讲讲吗

ll_j

看看这里：http://xdcad.net/forum/showthrea ... d=766406#post766406