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

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

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

逆天啊！！！

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

厉害！期待！

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

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

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

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

lpl 发表于 2013-12-9 20:42 static/image/common/back.gif
伪源码，没意思，院长孤芳自赏吧
暂时孤芳自赏，期待其它的排序方式……

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

太强劲了

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

顶一下

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

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

孤芳自赏？还是吊胃口？

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

不错就是没源码

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

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

还是老夫来揭开谜底吧
(defun sort->Pnts (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
页: 1 2 [3] 4 5
查看完整版本: 也玩排序——行列、折返、回形、环形共40式