表数字元素，怎么按大小排序重建表

75215195

表数字元素，怎么按大小排序重建表？
（1  3  2  8  5  7  6  4）======》（1 2 3 4 5 6 7 8）
（（1  1.20） （3  1.65）（5  1.85）（2  2.55） （4  3.00））====（（1  1.20） （2  2.55）（3  1.65）（4  3.00） （5  1.85））

ll_j

csharp

_$ (vl-sort '(1 3 2 8 7 6 4) '(lambda (a b) (if (listp a) (< (car a) (car b)) (< a b))))
(1 2 3 4 6 7 8)
_$ (vl-sort '((1  1.20)(3  1.65)(5  1.85)(2  2.55)(4  3.00)) '(lambda (a b) (if (listp a) (< (car a) (car b)) (< a b))))
((1 1.2) (2 2.55) (3 1.65) (4 3.0) (5 1.85))
_$

yoyoho

谢谢分享学习！！！

yoyoho

谢谢分享学习！！！

fangmin723

如果不是嵌套的表就直接：(vl-sort '(1  3  2  8  5  7  6  4) '<)

命令: (vl-sort '(1  3  2  8  5  7  6  4) '<)
(1 2 3 4 5 6 7 8)

sh_h

csharp 发表于 2017-9-11 14:39

学习了，谢谢！！！

newer

csharp 发表于 2017-9-11 14:39

1. (vl-sort '((1 1.20) (3 1.65) (5 1.85) (2 2.55) (4 3.00))
   
2.          '(lambda (a b)
   
3.             (if        (listp a)
   
4.               (< (car a) (car b))
   
5.               (< a b)
   
6.             )
   
7.           )
   
8. )
   
9. 
   

(vl-sort '((1 1.20) (3 1.65) (5 1.85) (2 2.55) (4 3.00))<br />          '(lambda (a b)<br />             (if        (listp a)<br />               (< (car a) (car b))<br />               (< a b)<br />             )<br />           )<br /> )<br /> <br />

这个是最全面的，关联表和原子表都能用

newer

开源函数库有个 XD::List:Sort , 可以控制按大于还是小于排序
http://bbs.xdcad.net/forum.php?m ... xd%3A%3Alist%3Asort

1. ;|
   
2. 功能：根据操作符排序表或关联表
   
3. 参数：lst --- 可排序原子组成的表或者关联表（可排序的值组成关键字）
   
4.       oper --- 操作符 '< or '>
   
5. 返回值：表
   
6. 例子：
   
7. 命令: !a
   
8. ((33789.5 <图元名: -16a990>) (18200.0 <图元名: -16a998>) (26020.6 <图元名: -16a9a0>)
   
9. (33789.5 <图元名: -16a9a8>))
   
10. 命令: (xd::list:sort a '<)
    
11. ((18200.0 <图元名: -16a998>) (26020.6 <图元名: -16a9a0>) (33789.5 <图元名: -16a990>)
    
12. (33789.5 <图元名: -16a9a8>))
    
13. 命令: (xd::list:sort '(12 456 3445 23) '<)
    
14. (12 23 456 3445)
    
15. |;
    
16. (defun XD::List:Sort (lst oper / x1 x2)
    
17.   (vl-sort lst '(lambda (x1 x2)
    
18.                   (if (and
    
19.                         (atom x1)
    
20.                         (atom x2)
    
21.                       )
    
22.                     (apply oper (list x1 x2))
    
23.                     (apply oper (list (car x1) (car x2)))
    
24.                   )
    
25.                 )
    
26.   )
    
27. )
    
28. 
    

;|<br /> 功能：根据操作符排序表或关联表<br /> 参数：lst --- 可排序原子组成的表或者关联表（可排序的值组成关键字）<br />       oper --- 操作符 '< or '><br /> 返回值：表<br /> 例子：<br /> 命令: !a<br /> ((33789.5 <图元名: -16a990>) (18200.0 <图元名: -16a998>) (26020.6 <图元名: -16a9a0>) <br /> (33789.5 <图元名: -16a9a8>))<br /> 命令: (xd::list:sort a '<)<br /> ((18200.0 <图元名: -16a998>) (26020.6 <图元名: -16a9a0>) (33789.5 <图元名: -16a990>) <br /> (33789.5 <图元名: -16a9a8>))<br /> 命令: (xd::list:sort '(12 456 3445 23) '<)<br /> (12 23 456 3445)<br /> |;<br /> (defun XD::List:Sort (lst oper / x1 x2)<br />   (vl-sort lst '(lambda (x1 x2)<br />                   (if (and<br />                         (atom x1)<br />                         (atom x2)<br />                       )<br />                     (apply oper (list x1 x2))<br />                     (apply oper (list (car x1) (car x2)))<br />                   )<br />                 )<br />   )<br /> )<br /> <br />

75215195

newer 发表于 2017-9-12 09:20

感谢您的热心帮助！