有没有函数判断元素是否存在于表中？

zhaochang71

如题：(setq aa (list "a" "b" "c"))  有没有自带函数判断"a"是否存在于表aa中。

yoyoho

;;;判断表LST1中的每一个元素是否都在表LST2中
;|
函数名称:XD::List:MemberAll
调用格式:(XD::List:MemberAll lst1 lst2)
参数说明:lst1 --- 表
lst2 --- 表
返回值:T --- 表lst1中所有元素都在表 lst2 中
NIL
函数简介:测试表1的所有元素是否都在表2中
函数来源:原创
函数作者:Lispboy
适用版本:不限
最后更新时间:2013-06-05
备注:-
- 本文出自晓东CAD家园-论坛，原文地址：http://www.xdcad.net/forum/thread-668657-1-1.html
|;

;|
判断表LST1中的每一个元素是否都在表LST2中
|;
(defun XD__List_MemberAll (lst1 lst2)
  (not (vl-member-if '(lambda (l)
                        (not (member l lst2))
                      ) lst1
       )
  )
)

;|
(setq a '(1 2 3) b '(3 4 5 1 2 3))
(XD__List_Memberall a b)
T
|;

yoyoho

指令: (setq aa (list "a" "b" "c"))
("a" "b" "c")
指令: (XD__List_Memberall '("a") aa)
T

zhaochang71

谢谢！yoyoho。我感觉这个功能很有用，lisp应该自带函数，估计是没有。

Andyhon

Command: (setq aa (list "a" "b" "c"))
("a" "b" "c")

Command: (member "a" aa)
("a" "b" "c")

Command: (member "d" aa)
nil

zhaochang71

感谢andyhon 这正是我所需求。

zhaochang71

发现一个自带函数：vl-position,找到返回位置，找不到返回Nil
_$ (setq aa '("a" "b" "c" "w"))
("a" "b" "c" "w")
_$ (vl-position "a" aa)
0
_$ (vl-position "w" aa)
3
_$
_$ (vl-position "f" aa)
nil
分享一下