也玩排序——行列、折返、回形、环形共40式

flowerson · 发表于 2013-12-9 12:17

还有一种,连线的总长最短方式的排序.就有点像" 己"一样的走的.版主求源码啊?伪的也好啊.

h008 · 发表于 2013-12-9 16:26

逆天啊！！！

yfanzi · 发表于 2013-12-9 20:30

厉害！期待！

lpl · 发表于 2013-12-9 20:42

伪源码，没意思，院长孤芳自赏吧

xyp1964 · 发表于 2013-12-9 21:51

本帖最后由 xyp1964 于 2013-12-10 00:41 编辑

lpl 发表于 2013-12-9 20:42
伪源码，没意思，院长孤芳自赏吧

暂时孤芳自赏，期待其它的排序方式……

ynhh · 发表于 2013-12-10 08:57

太强劲了

陈亚娣 · 发表于 2013-12-11 20:24

顶一下

香田里浪人 · 发表于 2013-12-13 07:55

xyp1964 发表于 2013-12-9 21:51
暂时孤芳自赏，期待其它的排序方式……

孤芳自赏？还是吊胃口？

有123 · 发表于 2013-12-14 19:59

不错就是没源码

redcat · 发表于 2013-12-15 15:06

本帖最后由 redcat 于 2013-12-15 15:13 编辑

还是老夫来揭开谜底吧

(defun sort->

nts (pts fuzz / ptl tmp)
  (setq       pts (vl-sort pts
                  '(lambda (p1 p2)
                     (if (= (car p1) (car p2))
                        (< (cadr p1) (cadr p2))
                        (< (car p1) (car p2))
                     ) ;_ 结束if
                  ) ;_ 结束lambda
         ) ;_ 结束vl-sort
  ) ;_ 结束setq
  (while pts
(setq tmp (car pts)
      ptl (cons (vl-remove-if-not '(lambda (n)
                                       (and (equal (car tmp) (car n) fuzz)
                                          (equal (cadr tmp) (cadr n) fuzz)
                                       ) ;_ 结束and
                                    ) ;_ 结束lambda
                                    pts
                  ) ;_ 结束vl-remove-if-not
                  ptl
            ) ;_ 结束cons
      pts (vl-remove-if '(lambda (n)
                           (and (equal (car tmp) (car n) fuzz)
                                 (equal (cadr tmp) (cadr n) fuzz)
                           ) ;_ 结束and
                           ) ;_ 结束lambda
                        (cdr pts)
            ) ;_ 结束vl-remove-if
) ;_ 结束setq
  ) ;_ 结束while
  (reverse ptl)
) ;_ 结束defun

账号		自动登录	找回密码
密码			注册

[讨论] 也玩排序——行列、折返、回形、环形共40式

本帖子中包含更多资源

点评