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

marting

1. ;|
   
2. 函数名称:        XD::List:Nth--
   
3. 调用格式:        (XD::List:Nth-- lst s n)
   
4. 参数说明:        lst ----- 表
   
5. s ----- 起始位置（0开始）
   
6. n ----- 长度
   
7. 返回值:        表
   
8. 函数简介:        返回表指定位置s之前，长度n的子表（不包括s）
   
9. 函数来源:        原创
   
10. 函数作者:        marting
    
11. 适用版本:        不限
    
12. 最后更新时间:        2017-06-11
    
13. |;
    
14. (defun XD::List:Nth-- (l s n)
    
15.   (if (or
    
16.         (not n)
    
17.         (< s n)
    
18.       )
    
19.     (setq n s
    
20.           s 0
    
21.     )
    
22.     (setq s (- s n))
    
23.   )
    
24.   (xd::list:nth++ l s n)
    
25. )
    

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

sh_h

大师：
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)

炫翔

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 08:56

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