查看单个帖子
旧 2009-04-26, 07:05 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 如何取得子表

如何取得子表
www.dimcax.com
如何取得子表
串列中有个取得子串列的函数substr,请问有取得子表的函数吗?比如如何从任意表(1 2 3 4 5 6 7 8 9 )中取得表(3 4 5 6 7),子表中元素顺序与母表相同。
d
(setq lst '(1 2 3 4 5 6 7 8 9)
lst3- (member 3 lst)
lst73 (member 7 (reverse lst3-))
lst3-7 (reverse lst73)
)
d
谢谢。我是任意写的一个子表。可以帮我写个内部函数吗?
d
函数以任意要取得的子表第一个元素和最后一个元素在母表的位置数为参数。谢谢
d
something like this?
(defun rtn子表lst (母表 子表a 子表z)
(reverse (member 子表z (reverse (member 子表a 母表))
)
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)