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

aeo

(defun nth-n(lst from to)
要求:
lst  --> (0 1 2 3 4 5 6 7 8 9 )
从表lst中取from到to的元素组成新表.
-->(nth lst 2 4) --> '(2 3 4)

from可以比to大-->(nth-n lst 4 2) --> '(4 3 2)

form和to超过了lst的长度，那就取到表尾.小于0,取到第一个.
  --> (nth-n lst 8 12) --> '(8 9)  -->(nth lst 2 -3)--> '(2 1 0)

还有什么想到再加.

zhynt

如果ｆｏｒｍ是无效值，就从表头到ｔｏ
如果ｔｏ是无效值，就从ｆｏｒｍ到表尾
如果都是无效值就取原表。

aeo

最初由 zhynt 发布
[B]如果ｆｏｒｍ是无效值，就从表头到ｔｏ
如果ｔｏ是无效值，就从ｆｏｒｍ到表尾。 [/B]

我以为你写了呢:)

from为nil等同0
to为nil等同(1-(length lst))

陌生人

版主一定有好的构思了，不如先贴一个出来吧：）
不过看上去也不算难；P

zhynt

先来个简单的：

2. 
   
3. (defun from-to (lst from to)
   
4.   (setq lst1 '())
   
5.   (setq        form (1- from)
   
6.         to   (1- to)
   
7.   )  
   
8.   (if (< from to)
   
9.     (progn
   
10.       (while (<= from to)
    
11.         (setq lst1 (cons (nth from lst) lst1))
    
12.         (setq form (1+ from))
    
13.       )
    
14.       (reverse lst1)
    
15.     )
    
16.     (progn
    
17.       (while (<= to from)
    
18.         (setq lst1 (cons (nth to lst) lst1))
    
19.         (setq to (1+ to))
    
20.       )
    
21.       lst1
    
22.     )
    
23.   )
    
24. )
    

<br /> (defun from-to (lst from to)<br />   (setq lst1 '())<br />   (setq        form (1- from)<br />         to   (1- to)<br />   )  <br />   (if (< from to)<br />     (progn<br />       (while (<= from to)<br />         (setq lst1 (cons (nth from lst) lst1))<br />         (setq form (1+ from))<br />       )<br />       (reverse lst1)<br />     )<br />     (progn<br />       (while (<= to from)<br />         (setq lst1 (cons (nth to lst) lst1))<br />         (setq to (1+ to))<br />       )<br />       lst1<br />     )<br />   )<br /> )<br />

陌生人

测试楼上的，好像还得加把劲哦：）
(setq lst '(0 1 2 3 4 5 6 7 8 9))
(form-to lst 2 4)->(1 2 3)
(form-to lst 2 22)->(1 2 3 4 5 6 7 8 9 nil nil nil nil nil nil nil nil nil nil nil nil)
(form-to lst -2 4) ->错误: 参数值错误: 非负: -3
(form-to lst nil nil)->错误: 参数类型错误: numberp: nil
(form-to lst 4 nil)->错误: 参数类型错误: numberp: nil
(form-to lst 2 -5)->错误: 参数值错误: 非负: -6
(form-to lst 12 -4)->错误: 参数值错误: 非负: -5


另外，提两个建议
1。form 应为from
2。from 和 to 序号建议从0起算。

wkai

测测这个：
[PHP]

(defun tt(one_lst fm to / nw_lst delta n dirction)
(if fm ()(setq fm 0))
(if to ()(setq to (length one_lst)))
(setq n (abs (- to fm)) dirction (if (>= TO FM) 1 -1))
(repeat (1+ n)
(if (and (>= fm 0) (setq tmp (nth fm one_lst)))
(setq nw_lst (append nw_lst (list tmp)))
)
(setq fm (+ fm dirction))
)
(print nw_lst)
)

(setq lst '(0 1 2 3 4 5 6 7 8 9 ))
(tt lst 120 -120 )
(tt lst nil nil)
(tt lst -120 -120)
(tt lst 2 6)
(tt lst 2 -3)
[/PHP]

to 陌生人：
漏写了一个字母.

陌生人

wkai ，再改改
TT
_$

错误: 参数类型错误: consp nil


昨晚做了一个：
[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)
|;
[/php]
想先看看aeo版主的高招再贴。：）

snsj

我的

2. 
   
3. (defun nth-n (lst from to / lsth i kls lsmax lsmin)
   
4. (setq lsth (1+(length lst)) i 0)
   
5. (setq lsmin(min from to))(setq lsmax(max from to))
   
6.   (cond
   
7.     ((> lsmax lsth)(setq lsmax (- lsth 2)))
   
8.     ((< lsmin 0)(setq lsmin 0))
   
9.     )
   
10.   (repeat lsth
    
11.        (if (and(<= i lsmax)(>= i lsmin))
    
12.          (setq kls (cons (nth i lst) kls))
    
13.          )
    
14.        (setq i (+ i 1))
    
15.        )      
    
16.     (reverse kls)
    
17.        )

<br /> (defun nth-n (lst from to / lsth i kls lsmax lsmin)<br /> (setq lsth (1+(length lst)) i 0)<br /> (setq lsmin(min from to))(setq lsmax(max from to))<br />   (cond<br />     ((> lsmax lsth)(setq lsmax (- lsth 2)))<br />     ((< lsmin 0)(setq lsmin 0))<br />     )<br />   (repeat lsth<br />        (if (and(<= i lsmax)(>= i lsmin))<br />          (setq kls (cons (nth i lst) kls))<br />          )<br />        (setq i (+ i 1))<br />        )      <br />     (reverse kls)<br />        )

(setq a '(0 1 3 6 9 8 5 7 9 7 3 5 9))
测试:(nth-n a -2 -6)--------------->nil
         (nth-n a -2 6)---------------->(0 1 3 6 9 8 5)
         (nth-n a 2 6)---------------->(3 6 9 8 5)
         (nth-n a 6 2)---------------->(3 6 9 8 5)
         (nth-n a 30 2)------------->(3 6 9 8 5 7 9 7 3 5 9)
         (nth-n a 2 32)------------->(3 6 9 8 5 7 9 7 3 5 9)
         (nth-n a -2 30)------------->(3 6 9 8 5 7 9 7 3 5 9)
         (nth-n a -30 2)--------->(0 1 3)

wkai

to  snsj :
(nth-n a 30 2)------------->(3 6 9 8 5 7 9 7 3 5 9)
(nth-n a 2 32)------------->(3 6 9 8 5 7 9 7 3 5 9)
(nth-n a -2 30)------------->(3 6 9 8 5 7 9 7 3 5 9)

好像不对吧!

陌生人

差不多了。差不多了。
snsj的还差 from，to为nil时候的处理。还有当from>to时候结果需reverse
wkai的序号有一位需要处理：
(setq lst '(0 1 2 3 4 5 6 7 8 9 ))
(tt lst 2 4) -> (2 3)差4
(tt lst nil nil) -> (0 1 2 3 4 5 6 7 8 9) ok
(tt lst -2 5) -> (0 1 2 3 4) 差5。
(tt lst 5 12) -> (5 6 7 8 9) ok
(tt lst -22 22) -> (0 1 2 3 4 5 6 7 8 9)ok
(tt lst 6 2) -> (6 5 4 3) 差2
(tt lst 6 -10) -> (6 5 4 3 2 1 0) ok
(tt lst 5.5 8.1) -> 错误: 参数类型错误: fixnump: 2.6

wkai

最初由 陌生人 发布
(tt lst 5.5 8.1) -> 错误: 参数类型错误: fixnump: 2.6

呵呵，请教 陌生人 是否还要考虑以下的情况

[PHP]
(tt lst "3.1415926"  '(2))
(tt lst '(3  6))
......
[/PHP]

zhynt

我认为没有必要搞得这么复杂，所有不符条件的参数都应提示出错最多返回“空表”，因为不符条件的情况太多了，不可能都满足的。

snsj

2. 
   
3. (defun nth-n (lst from to / lsth i kls lsmax lsmin)
   
4. (setq lsth (1+(length lst)) i 0)
   
5.   (cond
   
6.     ((and(null from)(/= to nil))(setq from 0))
   
7.     ((and(null to)(/= from nil))(setq to 0))
   
8.     ((and(null from)(null to)) (setq from 0)(setq to (- lsth 2)))
   
9.     )
   
10. (setq lsmin(min from to))(setq lsmax(max from to))
    
11.   (cond
    
12.     ((> lsmax lsth)(setq lsmax (- lsth 2)))
    
13.     ((< lsmin 0)(setq lsmin 0))   
    
14.     )
    
15.   (repeat lsth
    
16.        (if (and(<= i lsmax)(>= i lsmin))
    
17.          (setq kls (cons (nth i lst) kls))
    
18.          )
    
19.        (setq i (+ i 1))
    
20.        )
    
21.    (cond     
    
22.      ((> from to) kls)
    
23.      (t (reverse kls))
    
24.      )  
    
25.        )
    

<br /> (defun nth-n (lst from to / lsth i kls lsmax lsmin)<br /> (setq lsth (1+(length lst)) i 0)<br />   (cond<br />     ((and(null from)(/= to nil))(setq from 0))<br />     ((and(null to)(/= from nil))(setq to 0))<br />     ((and(null from)(null to)) (setq from 0)(setq to (- lsth 2)))<br />     )<br /> (setq lsmin(min from to))(setq lsmax(max from to))<br />   (cond<br />     ((> lsmax lsth)(setq lsmax (- lsth 2)))<br />     ((< lsmin 0)(setq lsmin 0))    <br />     )<br />   (repeat lsth<br />        (if (and(<= i lsmax)(>= i lsmin))<br />          (setq kls (cons (nth i lst) kls))<br />          )<br />        (setq i (+ i 1))<br />        )<br />    (cond     <br />      ((> from to) kls)<br />      (t (reverse kls))<br />      )  <br />        )<br />

改正FROM大于TO反转表，FROM和TO同时为NIL时候返回全表,FROM为NIL且TO不为NIL时设置FROM从0开始计数，当TO为NIL且FROM不为NIL的时候，设置TO为0
增加:
(nth-n 'a nil 8)------>(0 1 3 6 9 8 5 7 9)
(nth-n 'a 8 nil)------>(9 7 5 8 9 6 3 1 0)
(nth-n 'a nil nil)------>(0 1 3 6 9 8 5 7 9 7 3 5 9)

陌生人

最初由 wkai 发布
[B]

呵呵，请教 陌生人 是否还要考虑以下的情况

[PHP]
(tt lst "3.1415926"  '(2))
(tt lst '(3  6))
...... [/B]

对不起，不是有意搞复杂的。
因为snsj的程序支持这个。因此顺便也拿你的来测一下。最后 的那个测试无关紧要。不支持也不要紧。呵呵。


怎么aeo版主光叫“大家一起来”，自己不“来”啊？