排序问题请教，高手请进！！！

zsqdsd

lisp问题求教
1-100间随机取30个数（数可以重复，如取3个10），现将这些数按大小重新编号，例：最小的数编为1，第二小编为2，以此类推，重复的数字编为相同的号,请问用lisp如何实现？先谢了！！！

ll_j

AutoLisp是没有办法取随机数的，排序程序如下：

1. 
   
2. (defun tt (lst / i)
   
3.   (setq i   1                              ;计数器
   
4.         lst (vl-sort (mapcar         ;排序
   
5.                        '(lambda (x)
   
6.                           (cons x nil)        ;将数字变成表
   
7.                         )
   
8.                        lst
   
9.                      )
   
10.                      '(lambda (y z)
    
11.                         (< (car y) (car z))
    
12.                       )
    
13.             )
    
14.   )
    
15.   (cons (cons 1 (car lst))                 ;返回值的第一个原子
    
16.         (mapcar
    
17.           '(lambda (x y)                      ;数值变化则计数器+1
    
18.              (if (> (car y) (car x))
    
19.                (cons (setq i (1+ i)) y)
    
20.                (cons i y)
    
21.              )
    
22.            )
    
23.           lst
    
24.           (cdr lst)
    
25.         )
    
26.   )
    
27. )
    

<br /> (defun tt (lst / i)<br />   (setq i   1                              ;计数器<br />         lst (vl-sort (mapcar         ;排序<br />                        '(lambda (x)<br />                           (cons x nil)        ;将数字变成表<br />                         )<br />                        lst<br />                      )<br />                      '(lambda (y z)<br />                         (< (car y) (car z))<br />                       )<br />             )<br />   )<br />   (cons (cons 1 (car lst))                 ;返回值的第一个原子<br />         (mapcar <br />           '(lambda (x y)                      ;数值变化则计数器+1<br />              (if (> (car y) (car x))<br />                (cons (setq i (1+ i)) y)<br />                (cons i y)<br />              )<br />            )<br />           lst<br />           (cdr lst)<br />         )<br />   )<br /> )<br />

返回值样式：((1 0) (1 0) (1 0) (2 3) (3 4.0) (3 4)....)