只需一步,快速开始
使用道具 举报
(defun test (lst / a lst2) (while (setq a (car lst) lst2 (cons a lst2) lst (vl-remove a lst))) (reverse lst2))
;;(test '("aa.jpg""aa.jpg" "bb.jpg"))
(test '("2" 2 "a" "aa.jpg""aa.jpg" "bb.jpg" "a" "aa" "a" 1 2 5 "" "" "2" "3"))
->("2" 2 "a" "aa.jpg" "bb.jpg" "aa" 1 5 "" "3")
除非是包含点集或实数需要设置误差值的表进行比较
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-5-12 05:47 , Processed in 0.141104 second(s), 26 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.