发一个最难的排序题目

hhaoma

(defun c:px()

(setq a 3.84)
(setq b 3.1)
(setq c 3.54)
(print (vl-sort '( a b c) '<))
)
;想输出 (3.1 3.54 3.84)
;可是程序却显示 ; 错误: 用于比较的参数类型不正确: C B
;我想从小到大输出 请问该如何实现？

xyp1964

2. (defun c:tt ()
   
3.   (setq a 3.84
   
4.         b 3.1
   
5.         c 3.54
   
6.   )
   
7.   (print (vl-sort (list a b c) '<))
   
8. )

(defun c:tt ()<br />   (setq a 3.84<br />         b 3.1<br />         c 3.54<br />   )<br />   (print (vl-sort (list a b c) '<))<br /> )

SunSpring

重复删除.

xyp1964

扩展：(setq a 3.84 b 3.1 c 3.54 f 1 d 2 e 1)如何从小到大排序？

hhaoma

谢谢论坛各位兄弟！！！高手啊！

SunSpring

xyp1964 发表于 2014-8-24 14:33
扩展：(setq a 3.84 b 3.1 c 3.54 f 1 d 2 e 1)如何从小到大排序？

(defun c:px ()
  (setq a 3.84 b 3.1 c 3.54 f 1 d 2 e 1)
  (setq lst0 (list a b c d e f))
  (setq lst1 (vl-sort-i lst0 '<))
  (mapcar '(lambda (x) (nth x lst0)) lst1)
)

nzl1116

xyp1964 发表于 2014-8-24 14:33
扩展：(setq a 3.84 b 3.1 c 3.54 f 1 d 2 e 1)如何从小到大排序？

这种排列其实很简单，转字符串后再排列