论坛直接搜函数不能搜到相关用法贴一个vl-every函数用法

crtrccrt

大佬来贴码咯

树櫴希德

学习下 牛逼了

不一样地设计

前来学习一下

tigcat

学习学习，感谢分享！

lxl217114

谢谢分享，虽然看不懂

USER2128

感谢楼主分享！

LIULISHENG

支持一下楼主

wide

支持一下楼主

陈伟

vitalgg 发表于 2023-9-12 10:36
vl-every 等同于
(apply 'and (mapcar '测试函数 lst))

学到了


检查A1中任意一个值在B1什么位置（从0开始，示例返回值为2）,如果没有A1返回nil

(defun C:TT()

(setq a1 '(A B C D E))

(setq b1 '( 1 2 A 2 3 4 5 5 5 5 6 7 8 9  ))

(vl-some '(lambda(x)(vl-position x b1)) a1)
)


列表对比包含关系
(setq a1 '(9 7 6 A))
(setq b1 '(A 1 2  2 3 4 5 5 5 5 6 7 8 9  ))
怎么判断  B1已经全部含有A1列表，含有返回T  不然返回nil

(vl-every '(lambda(x)(vl-position x b1)) a1)