这段代码是按什么排序的？

lucas3

2. (defun sort(l)
   
3.     (mapcar 'cadr (vl-sort
   
4.       (mapcar '(lambda(x) (list (atoi (vl-list->string (vl-remove-if-not '(lambda(y) (<= 48 y 57))  (vl-string->list x)))) x)) l)
   
5.    '(lambda(m n) (< (car m) (car n)))))
   
6.   )

(defun sort(l)<br />     (mapcar 'cadr (vl-sort<br />       (mapcar '(lambda(x) (list (atoi (vl-list->string (vl-remove-if-not '(lambda(y) (<= 48 y 57))  (vl-string->list x)))) x)) l)<br />    '(lambda(m n) (< (car m) (car n)))))<br />   )

请教，上面这段代码是按什么排序的？高手能不能详细的解释一下？谢谢！

csharp

2. 
   
3. (defun sort (l)
   
4.   (mapcar 'cadr
   
5.           (vl-sort
   
6.             (mapcar '(lambda (x)
   
7.                        (list (atoi (vl-list->string
   
8.                                      (vl-remove-if-not
   
9.                                        '(lambda (y) (<= 48 y 57));_剔除非数字
   
10.                                        (vl-string->list x);_字串转List
    
11.                                      )
    
12.                                    );_表转字串
    
13.                              );_转数字
    
14.                              x
    
15.                        )
    
16.                      )
    
17.                     l
    
18.             );_构造数字及字串表'((121 "A121") (23 "A23") ...)
    
19.             '(lambda (m n) (< (car m) (car n)))
    
20.           );_按内部所含数字排序
    
21.   );_返回原字串
    
22. )

<br /> (defun sort (l)<br />   (mapcar 'cadr<br />           (vl-sort<br />             (mapcar '(lambda (x)<br />                        (list (atoi (vl-list->string<br />                                      (vl-remove-if-not<br />                                        '(lambda (y) (<= 48 y 57));_剔除非数字<br />                                        (vl-string->list x);_字串转List<br />                                      )<br />                                    );_表转字串<br />                              );_转数字<br />                              x<br />                        )<br />                      )<br />                     l<br />             );_构造数字及字串表'((121 "A121") (23 "A23") ...)<br />             '(lambda (m n) (< (car m) (car n)))<br />           );_按内部所含数字排序<br />   );_返回原字串<br /> )

_$ (sort '("A121" "A2"))
("A2" "A121")
_$

lucas3

csharp 发表于 2014-7-23 19:03
_$ (sort '("A121" "A2"))
("A2" "A121")
_$

谢谢大侠帮助！我会记住你给予我的帮助！