(XD::List:ItemAllPosition)获取元素在表中所有位置

eachy

1. ;;获取元素在表中所有位置
   
2. (defun XD::List:ItemAllPosition    (lst key fuzz / ll i)
   
3.   (setq i 0)
   
4.   (foreach x lst
   
5.     (if    (equal x key fuzz)
   
6.       (setq ll (cons i ll))
   
7.     )
   
8.     (setq i (1+ i))
   
9.   )
   
10.   (if ll
    
11.     (reverse ll)
    
12.   )
    
13. )

;;获取元素在表中所有位置<br /> (defun XD::List:ItemAllPosition    (lst key fuzz / ll i)<br />   (setq i 0)<br />   (foreach x lst<br />     (if    (equal x key fuzz)<br />       (setq ll (cons i ll))<br />     )<br />     (setq i (1+ i))<br />   )<br />   (if ll<br />     (reverse ll)<br />   )<br /> )

Lisphk

能否个个代码执行的例子， 要求的是纯数字的表吗？