《表排序》重金求助

aeo000000

几百天没写了。。。。。。。。。。。

2. 
   
3. 
   
4. ;;相等时长度长的大    返回： 等 0  大 1  小 -1
   
5. (defun test0(lst1 lst2 / len r x y)
   
6.   (setq len(-(length lst1)(length lst2)))
   
7.   (setq r 0)
   
8.   (mapcar '(lambda(x y)(if (= r 0)(setq r (cond((= x y) 0 )((> x y)1)(t -1))))) lst1 lst2)
   
9.   (if (= r 0) (setq r (cond((> len 0)1)((= len 0)0)(t -1))))
   
10.   r
    
11. )
    

<br /> <br /> ;;相等时长度长的大    返回： 等 0  大 1  小 -1<br /> (defun test0(lst1 lst2 / len r x y) <br />   (setq len(-(length lst1)(length lst2)))<br />   (setq r 0)<br />   (mapcar '(lambda(x y)(if (= r 0)(setq r (cond((= x y) 0 )((> x y)1)(t -1))))) lst1 lst2)<br />   (if (= r 0) (setq r (cond((> len 0)1)((= len 0)0)(t -1))))<br />   r<br /> )<br />

命令: (test0 '(1 3 4) '(1 3 5))
-1

命令: (test0 '(1 3 4) '(1 3 4 5))
-1

命令: (test0 '(1 3 4) '(1 1 3 4 5))
1

命令: (test0 '(1 3 4) '( 1 3 3 4 5))
1

2. 
   
3. ;;自己判断是 '( ()()()...)
   
4. (defun test(lst)
   
5.     (vl-sort lst '(lambda(x y)(= (test0 x y) -1)))
   
6. )
   

<br /> ;;自己判断是 '( ()()()...)<br /> (defun test(lst)<br />     (vl-sort lst '(lambda(x y)(= (test0 x y) -1)))<br /> )<br />

命令: (test '((1 2 3 4)(1 2)(5 6 7)(1 4 5)(0 3)))
((0 3) (1 2) (1 2 3 4) (1 4 5) (5 6 7))

命令: (test '((1 2 3 4)(1 2)(5 6 7)(1 4 5)(0 3)(1 2)(1 2 3 4)(1)))
((0 3) (1) (1 2) (1 2) (1 2 3 4) (1 2 3 4) (1 4 5) (5 6 7))

icefire

真是高手云集

阳光动力

学习了

xiabin68

高手学习了，，，，，，

qyming

学习了，，，，，，

sz2014SZ

高手，学习了