[LISP函数]：类似VL-POSITION,返回元素位置表.

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; ==================================================================
   
5. ;;;类似VL-POSITION,返回元素位置表.
   
6. ;;;命令: !lst
   
7. ;;;(12 3 1 2 3 4 5 6 7 8 9 0 0 9 8 7 6 5 4 3 2 1 1 1 5 6 6)
   
8. ;;;命令: (TH-POSITION 1 lst)
   
9. ;;;(2 21 22 23)
   
10. ;;;命令: (hao-POSITION 1 lst)
    
11. ;;;(2 21 22 23)
    
12. (defun th-position (ele lst / i len poslst)
    
13.   (setq i -1
    
14.         len (length lst)
    
15.   )
    
16.   (while (< (setq i (1+ i))
    
17.             len
    
18.          )
    
19.     (if (= ele (nth i lst))
    
20.       (setq poslst (cons i poslst))
    
21.     )
    
22.   )
    
23.   (reverse poslst)
    
24. )
    
25. (defun hao-position (ele lst / i poslst)
    
26.   (setq i -1)
    
27.   (foreach x lst
    
28.     (setq i (1+ i))
    
29.     (if (= ele x)
    
30.       (setq poslst (cons i poslst))
    
31.     )
    
32.   )
    
33.   (reverse poslst)
    
34. )
    
35. ;;; ==================================================================
    
36.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; ==================================================================<br /> ;;;类似VL-POSITION,返回元素位置表.<br /> ;;;命令: !lst<br /> ;;;(12 3 1 2 3 4 5 6 7 8 9 0 0 9 8 7 6 5 4 3 2 1 1 1 5 6 6)<br /> ;;;命令: (TH-POSITION 1 lst)<br /> ;;;(2 21 22 23)<br /> ;;;命令: (hao-POSITION 1 lst)<br /> ;;;(2 21 22 23)<br /> (defun th-position (ele lst / i len poslst)<br />   (setq i -1<br />         len (length lst)<br />   )<br />   (while (< (setq i (1+ i))<br />             len<br />          )<br />     (if (= ele (nth i lst))<br />       (setq poslst (cons i poslst))<br />     )<br />   )<br />   (reverse poslst)<br /> )<br /> (defun hao-position (ele lst / i poslst)<br />   (setq i -1)<br />   (foreach x lst<br />     (setq i (1+ i))<br />     (if (= ele x)<br />       (setq poslst (cons i poslst))<br />     )<br />   )<br />   (reverse poslst)<br /> )<br /> ;;; ==================================================================<br />   [/FONT]<br />