请教一下关于lisp表排序的问题。[求助]

南子

(acad _strlsort  list)

参数

list

要排序的字符串表

返回值

排序后的相同字符串表。如果 list 参数是一个无效表或者没有足够的内存来进行排序，acad_strlsort
函数返回 nil。

样例

下列代码将一年中十二个月的月名的缩写字符串表按字母顺序进行排序：

命令：(setq mos '("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug"
         "Sep" "Oct" "Nov" "Dec"))

("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec")

命令：(acad_strlsort mos)

("Apr" "Aug" "Dec" "Feb" "Jan" "Jul" "Jun" "Mar" "May" "Nov" "Oct" "Sep")


(vl-sort  list comparison-function)

参数

list

任意表。

comparison-function

比较函数。它可以是任何一个这样的函数：接受如下两个参数，如果第一个参数按排序顺序在第二个元素之前，则返回 T 或非 nil 值。comparison-function 的值可以采用如下格式：

符号 (函数名)
        '(LAMBDA (A1 A2) ...)
        (FUNCTION (LAMBDA (A1 A2) ...))

返回值

表，其中包含 list 中的元素，这些元素按照 comparison-function 中指定的顺序排列。表中可能删除了重复的元素。

样例

对数值表排序：

_$ (vl-sort '(3 2 1 3) '<)

(1 2 3)     ;  

请注意结果表中仅包含一个 3。
按 Y 坐标对二维点表排序：

_$ (vl-sort '((1 3) (2 2) (3 1))
             (function (lambda (e1 e2)
                         (< (cadr e1) (cadr e2)) ) ) )

((3 1) (2 2) (1 3))

对符号表排序：

_$ (vl-sort  
   '(a d c b a)
   '(lambda (s1 s2)
     (< (vl-symbol-name s1) (vl-symbol-name s2)) ) )

(A B C D)       ;  请注意在结果表中仅有一个 A

南子

tdtdwe

有表((-1 3) (-2 4)......)
请问怎么把里面大于零的x值和小于零的分别排序，并输出

haiyunzhou

学习了 非常感谢

xiabin68

完全看不懂，，，，

zml84

tdtdwe 发表于 2009-9-7 22:12
有表((-1 3) (-2 4)......)
请问怎么把里面大于零的x值和小于零的分别排序，并输出

逐个分析，遍历一下即可。

示例代码：

2. ;|
   
3. ((-1 3) (-2 4)......)
   
4. 请问怎么把里面大于零的x值和小于零的分别排序，并输出
   
5. |;
   
6. 
   
7. (defun c:tt ()
   
8.   (setq lst '((-1 5) (2 3) (4 6) (-2 -7) (8 -9)))
   
9.   ;;判别
   
10.   (setq        lst1 '()
    
11.         lst2 '()
    
12.   )
    
13.   (foreach n lst
    
14.     (if        (< (car n) 0)
    
15.       (setq lst1 (cons n lst1))
    
16.       (setq lst2 (cons n lst2))
    
17.     )
    
18.   )
    
19.   ;;显示
    
20.   (print "\n小于0的表: ")
    
21.   (princ lst1)
    
22.   (print "\n大于0的表: ")
    
23.   (princ lst2)
    
24.   (princ)
    
25. )
    

;|<br /> ((-1 3) (-2 4)......)<br /> 请问怎么把里面大于零的x值和小于零的分别排序，并输出<br /> |;<br /> <br /> (defun c:tt ()<br />   (setq lst '((-1 5) (2 3) (4 6) (-2 -7) (8 -9)))<br />   ;;判别<br />   (setq        lst1 '()<br />         lst2 '()<br />   )<br />   (foreach n lst<br />     (if        (< (car n) 0)<br />       (setq lst1 (cons n lst1))<br />       (setq lst2 (cons n lst2))<br />     )<br />   )<br />   ;;显示<br />   (print "\n小于0的表: ")<br />   (princ lst1)<br />   (print "\n大于0的表: ")<br />   (princ lst2)<br />   (princ)<br /> )<br />

xiabin68

太牛了，就是看不懂