这个函数的作用是什么? 没看出什么规律

mhx999

这个函数的作用是什么? 没看出什么规律

(defun vl-positions ( x l / i )
    (setq i -1)
    (vl-remove nil (mapcar '(lambda ( y ) (setq i (1+ i)) (if (= x y) i)) l))
)
_$ (vl-positions 2 '(2 3 4 5 6 2 3 4 2 3 4 2 6 5))
(0 5 8 11)

自贡黄明儒

2的位置，第一个是0

mhx999

自贡黄明儒 发表于 2015-12-2 11:20
2的位置，第一个是0

哈哈,感谢长老 !

yoyoho

感謝分享學習!!!!!

xinrstar

重慶崽兒

其实就是把其中的2单独提取出来 并替换成I的值

emk

是要提取的2的位置，不是替换