基于anoth检索列表

amir0914 · 发表于 2022-9-4 21:48:54

我有一些数字列表作为文本，例如：（它可能只有一个项目）
("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))

有人能给出最快的方式来执行吗

Tharwat · 发表于 2022-9-4 23:36:37

copy

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

[编程交流] 基于anoth检索列表

发表回复

精选推荐