[求助]：难题,怎样提取列表相同前缀的元素组成新列表?

mhy007 · 发表于 2006-4-21 09:43:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有一列表比如:("abc01""123""abc02""abc03""ert""s888""abc04""666""abc05")唯一已知有相同前缀的abc，其数量和在列表中的位置未知。这种情况能否提取出("abc01""abc02""abc03"abc04""abc05")这样的列表？请大虾指点。

flashhorse · 发表于 2006-4-21 10:08:13

用assoc？

Underway · 发表于 2006-4-21 10:14:56

_$ (setq lst '("abc01" "123" "abc02" "abc03" "ert" "s888" "abc04" "666" "abc05"))
("abc01" "123" "abc02" "abc03" "ert" "s888" "abc04" "666" "abc05")
_$ (vl-remove-if-not
(_> (function
((_> (lambda (x) (wcmatch x "abc*"))
((_> )
(_> lst
(_> )
("abc01" "abc02" "abc03" "abc04" "abc05")
_$

橄榄滋味 · 发表于 2006-4-21 16:53:08

上面程序无法运行，好像有问题

mhy007 · 发表于 2006-4-21 18:43:41

Underway 的身手很厉害，一两行代码就解决了令我困惑不已的难题，佩服佩服！回橄榄滋味

：程序左边的符号都是多余的，去掉即可正常运行。

iwi · 发表于 2006-4-21 21:25:12

佩服,
用FOREACH和WCMATCH应该也可以吧,不过代码要长很多!

xyp1964 · 发表于 2006-4-21 22:41:13

FOREACH：

[FONT=courier new](setq lst '("abc01" "123" "abc02" "abc03" "ert" "s888" "abc04" "666" "abc05"))
(foreach a lst
(if (= (substr a 1 3) "abc")
(setq lst1 (cons a lst1))
)
)
(setq lst1 (reverse lst1))[/FONT]

fsxm · 发表于 2006-4-22 01:20:06

两个方法都有不错啦！

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

[求助] [求助]：难题,怎样提取列表相同前缀的元素组成新列表?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子