基于anoth检索列表
我有一些数字列表作为文本，例如：（它可能只有一个项目）("304" "352" "361")
还有另一个列表，它有很多成员，它是基于第一个元素排序的，如下所示：
(("301" x y) ("304" x y) ("327" x y)("331" x y) ("347" x y) ("352" x y) ("359" x y) ("361" x y)
最后，我想从两个列表中检索这个列表：（我的意思是，第一个列表的每个元素都应该在第二个列表中搜索，如果相等，则从第二个名单中检索列表）
(("304" x y) ("352" x y) ("361" x y))
有人能给出最快的方式来执行吗
(foreach str '("304" "352" "361")(if (setq ass (assoc str '(("301" x y) ("304" x y) ("327" x y)("331" x y) ("347" x y) ("352" x y) ("359" x y) ("361" x y)))) (setq grp (cons ass grp)) ))
页:
[1]