如何取得子表

lifuq1979 · 发表于 2019-6-4 18:01:41

如有一表：(setq lst '(("JM" "324" "JZ" "TT") ("245" "SX" "XX" "T2") ("666" "ZJ" "CO" "BG")))
assoc只能搜索第一个元素
(assoc "245" lst)返回("245" "SX" "XX" "T2")
(assoc "SX" lst)返回nil
如何搜索其中任一元素，都返回该子表,
如"BG" 返回 ("666" "ZJ" "CO" "BG")

yshf · 发表于 2019-6-4 20:43:51

(setq cxjg (car (vl-remove-if-not '(lambda(x)(member "245" x)) lst)))
("245" "SX" "XX" "T2")

(setq cxjg (car (vl-remove-if-not '(lambda(x)(member "SX" x)) lst)))
("245" "SX" "XX" "T2")

(setq cxjg (car (vl-remove-if-not '(lambda(x)(member "BG" x)) lst)))
("666" "ZJ" "CO" "BG")

1291500406 · 发表于 2019-6-4 19:21:24

本帖最后由 1291500406 于 2019-6-4 20:21 编辑

(setq lst '(("JM" "324" "JZ" "TT") ("245" "SX" "XX" "T2") ("666" "ZJ" "CO" "BG")))

(assoc "JM"  lst)
("JM" "324" "JZ" "TT")

(assoc "245"  lst)
("245" "SX" "XX" "T2")

(assoc "666"  lst)
("666" "ZJ" "CO" "BG")

(assoc "BG"  lst)

nil

(assoc "CO" lst)

nil

Andyhon · 发表于 2019-6-4 20:01:14

依单一样本个人殆会调用 Member 函数

lifuq1979 · 发表于 2019-6-5 13:12:42

yshf 发表于 2019-6-4 20:43
(setq cxjg (car (vl-remove-if-not '(lambda(x)(member "245" x)) lst)))
("245" "SX" "XX" "T2")

就是这效果，谢谢大师

账号		自动登录	找回密码
密码			注册

[源码] 如何取得子表