如何取得子表

jackechang

串列中有个取得子串列的函数substr，请问有取得子表的函数吗？比如如何从任意表（1 2 3 4 5 6 7 8 9 ）中取得表（3 4 5 6 7），子表中元素顺序与母表相同。

Andyhon

(setq Lst '(1 2 3 4 5 6 7 8 9)
    Lst3- (member 3 Lst)
    Lst73 (member 7 (reverse Lst3-))
   Lst3-7 (reverse Lst73)
)

jackechang

谢谢。我是任意写的一个子表。可以帮我写个内部函数吗？

jackechang

函数以任意要取得的子表第一个元素和最后一个元素在母表的位置数为参数。谢谢

Andyhon

Something Like this?

(defun rtn子表Lst (母表 子表a 子表z)
   (reverse (member 子表z (reverse (member 子表a 母表))
)