明经CAD社区返回首页

caoyin的个人空间 http://www.mjtd.com/?213172 [收藏] [复制] [分享] [RSS]

日志

表排序

热度 11已有 2744 次阅读2012-8-11 01:02 |个人分类:LISP|系统分类:应用

可应用于点集排序

要求见：http://bbs.mjtd.com/thread-95905-1-1.html

(defun PointList-sort (PNTLST / REC)
(defun REC (A B);;递归
(cond ((equal (car A) (car B) 1E-4) (REC (cdr A) (cdr B)))
(T (< (car A) (car B)))
))
(vl-sort PNTLST '(lambda (P1 P2)(REC P1 P2)))
)

已同步至 caoyin的微博

刚表态过的朋友 (10 人)

收藏分享邀请举报

全部作者的其他最新日志

发表评论评论 (3 个评论)

回复 jicqj 2012-8-13 13:09: 这么复杂的程序几行就搞定，lisp的精髓所在

回复 hhh454 2012-8-20 22:04

回复 zml84 2012-9-25 13:31: (defun sort2 (PNTLST / REC)
  (defun REC (A B)
(if (equal (car A) (car B) 1E-4)
   (REC (cdr A) (cdr B))
   (< (car A) (car B))
)
  )
  (vl-sort PNTLST 'REC)
)

caoyin

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )
©2000-2023 明经通道版权所有本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-4-25 13:08 , Processed in 0.222625 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部