[建议]：大家一起来写,得到表中的元素.

aeo

前一阵我要用的时候,就是写不好,
可能我提的要求和我上次的问题不一样.


不要求from和to一定是数值,因为用的时候自然会注意的.比如(+ "A"1)自然不给你算的

我的:

2. 
   
3. (defun nth-n(lst from to / is-max is-min j)
   
4. (or from(setq from 0))
   
5. (or to  (setq to(1-(length lst))))
   
6. (setq is-max(max from to)
   
7.        is-min(min from to)
   
8.        j -1)
   
9. (setq lst(apply 'append
   
10.    (mapcar '(lambda(##)(if(<= is-min(setq j(1+ j))is-max)(list ##)))lst)
    
11.   ))
    
12. (if(> from to)(reverse lst)lst)
    
13. )
    

<br /> (defun nth-n(lst from to / is-max is-min j)<br /> (or from(setq from 0))<br /> (or to  (setq to(1-(length lst))))<br /> (setq is-max(max from to) <br />        is-min(min from to) <br />        j -1)<br /> (setq lst(apply 'append<br />    (mapcar '(lambda(##)(if(<= is-min(setq j(1+ j))is-max)(list ##)))lst)<br />   ))<br /> (if(> from to)(reverse lst)lst)<br /> )<br />

命令: (nth-n a 6 3)
(6 5 4 3)

命令: (nth-n a 60 3)
(9 8 7 6 5 4 3)

命令: (nth-n a 60 -3)
(9 8 7 6 5 4 3 2 1 0)

命令: (nth-n a nil -3)
(0)

命令: (nth-n a nil nil)
(0 1 2 3 4 5 6 7 8 9)

命令: (nth-n a nil 10)
(0 1 2 3 4 5 6 7 8 9)

命令: (nth-n a 1 nil)
(1 2 3 4 5 6 7 8 9)

命令: (nth-n a 1 6)
(1 2 3 4 5 6)

命令: !a
(0 1 2 3 4 5 6 7 8 9)

命令: (nth-n a -3 -2)
nil

反映很热烈，下次我还出题目:)

陌生人

哈哈，算我没看走眼，aeo版主真不错：）,下面是我前两天晚上写的，看来与版主狗熊所见略同啊，仅(or (<= fm i to)(<= to i fm)) 这个地方处理略有差异
[php]
;|(xl-sub lst from to) ＝ 从表中取部分元素组表(扩展) v1.0-------------------------陌生人.2004.2
功能: 1.从表中取from 到 to 的元素组成新表.(序号从0起算)
      2.from>to时新表倒置.支持from,to为nil(默认取头尾序号)或超出表序号范围,返回有效序号的元素组成的新表.
测试:
(setq lst '(0 1 2 3 4 5 6 7 8 9 ))
(xl-sub lst 2 4) -> (2 3 4)
(xl-sub lst nil nil) -> (0 1 2 3 4 5 6 7 8 9)
(xl-sub lst -2 5) -> (0 1 2 3 4 5)
(xl-sub lst 5 12) -> (5 6 7 8 9)
(xl-sub lst -22 22) -> (0 1 2 3 4 5 6 7 8 9)
(xl-sub lst 6 2) -> (6 5 4 3 2)
(xl-sub lst 6 -10) -> (6 5 4 3 2 1 0)
(xl-sub lst 5.5 8.1) -> (6 7 8)
(xl-sub lst -2 -6) -> nil
'|;
(defun xl-sub (lst fm to / i nlst)
  (setq fm (if fm fm 0)
           to (if to to (1- (length lst)))
           i  -1
        nlst (apply 'append (mapcar '(lambda (x)(setq i (1+ i)) (if (or (<= fm i to)(<= to i fm)) (list x) nil )) lst)))
  (if (> fm to) (reverse nlst) nlst)
)
[/php]