（XD::List:Nth--）返回表指定位置s之前，长度n的子表（不包括s）

marting · 发表于 2017-6-11 22:27:34

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

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

×

;|
函数名称: XD::List:Nth--
调用格式: (XD::List:Nth-- lst s n)
参数说明: lst ----- 表
s ----- 起始位置（0开始）
n ----- 长度
返回值: 表
函数简介: 返回表指定位置s之前，长度n的子表（不包括s）
函数来源: 原创
函数作者: marting
适用版本: 不限
最后更新时间: 2017-06-11
|;
(defun XD::List:Nth-- (l s n)
(if (or
(not n)
(< s n)
)
(setq n s
s 0
)
(setq s (- s n))
)
(xd::list:nth++ l s n)
)

sh_h · 发表于 2017-6-16 13:40:01

大师：
XD::List:Nth++ 很好用
XD::LIST:NTH-- 是不是等于 cdr XD::List:Nth++ ???

(setq lst (list 1 2 3 4 5 6)) ---> (1 2 3 4 5 6)
(XD::LIST:NTH-- lst 0 4) ---> nil ???
(cdr (XD::LIST:NTH++ lst 0 4)) ---> (2 3 4)

炫翔 · 发表于 2017-6-17 08:56:46

本帖最后由炫翔于 2017-6-17 09:43 编辑

sh_h 发表于 2017-6-16 13:40

你理解错了 XD::LIST:NTH-- 是从后面往前面读取
(XD::LIST:NTH-- '(1 2 3 4 5 6 7) 4 3) --> (2 3 4)
上面是从第五个元素往前获取三个不含第五个元素5

sh_h · 发表于 2017-6-17 13:09:44

炫翔发表于 2017-6-17 08:56

哎呀！！！果然如此，谢谢大侠提醒！！！

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

[表] （XD::List:Nth--）返回表指定位置s之前，长度n的子表（不包括s）

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

评分