mhx999 发表于 2015-12-2 11:12:29

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

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

(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)

自贡黄明儒 发表于 2015-12-2 11:20:40

2的位置,第一个是0

mhx999 发表于 2015-12-2 11:29:46

自贡黄明儒 发表于 2015-12-2 11:20 static/image/common/back.gif
2的位置,第一个是0

哈哈,感谢长老 !

yoyoho 发表于 2015-12-2 15:20:53

感謝分享學習!!!!!

xinrstar 发表于 2015-12-6 09:01:00

重慶崽兒 发表于 2015-12-6 15:40:53

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

emk 发表于 2015-12-6 15:55:48

是要提取的2的位置,不是替换
页: [1]
查看完整版本: 这个函数的作用是什么? 没看出什么规律