社区 › 源码共享 › 论坛直接搜函数不能搜到相关用法贴一个vl-every函数用法

crtrccrt 发表于 2023-9-12 16:38:36

大佬来贴码咯

树櫴希德 发表于 2023-9-12 16:44:00

学习下 牛逼了

不一样地设计 发表于 2023-9-12 16:46:56

前来学习一下

tigcat 发表于 2023-9-13 08:26:31

学习学习，感谢分享！

lxl217114 发表于 2023-9-13 11:43:48

谢谢分享，虽然看不懂

USER2128 发表于 2023-9-13 14:32:06

感谢楼主分享！

LIULISHENG 发表于 2023-9-15 19:37:48

支持一下楼主

wide 发表于 2023-9-18 07:49:40

支持一下楼主

陈伟 发表于 2024-5-6 10:29:00

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 22 3 4 5 5 5 5 6 7 8 9))
怎么判断B1已经全部含有A1列表，含有返回T不然返回nil

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

查看完整版本: 论坛直接搜函数不能搜到相关用法贴一个vl-every函数用法