[讨论]：有没有更好的方法简化这个函数？

yjtdkj

2. 
   
3.   [FONT=courier new]
   
4. ;;;调用方法->(dnr  n 列表)->可返回该列表删除第N个元素后，剩下的列表
   
5. (defun dnr (n xlist / 1list nlist1 nlist2 nn n_add)
   
6.   (setq n_add 0)                        ;设置一个递增的起始值
   
7.   (setq nlist1 '())                        ;先设置一个空的子列表
   
8.   (repeat (1- n)                ;循环(n-1)次得到所须的子列表
   
9.     (setq 1list (nth n_add xlist))        ;提取0到N-1的每一个元素
   
10.     (setq nlist1 (cons 1list nlist1))        ;将提取到的元素加入子列表
    
11.     (setq n_add (1+ n_add))                ;使起始值递增
    
12.   )
    
13.   (setq nlist1 (reverse nlist1));返回倒置的子列表
    
14.   ;;-----------------------------
    
15.   (setq n_add n)                        ;设置一个递增的起始值
    
16.   (setq nlist2 '())                        ;先设置一个空的子列表
    
17.   (setq nn (- (length xlist) n));返回第N个元素以后的元素数量
    
18.   (repeat nn                ;循环nn次得到所须的子列表
    
19.     (setq 1list (nth n_add xlist))        ;提取n+1到以后的每一个元素
    
20.     (setq nlist2 (cons 1list nlist2))        ;将提取到的元素加入子列表
    
21.     (setq n_add (1+ n_add))                ;使起始值递增
    
22.   )
    
23.   (setq nlist2 (reverse nlist2));返回倒置的子列表
    
24.   (append nlist1 nlist2);连接为新表
    
25.   
    
26. )
    
27. 
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;调用方法->(dnr  n 列表)->可返回该列表删除第N个元素后，剩下的列表<br /> (defun dnr (n xlist / 1list nlist1 nlist2 nn n_add)<br />   (setq n_add 0)                        ;设置一个递增的起始值<br />   (setq nlist1 '())                        ;先设置一个空的子列表<br />   (repeat (1- n)                ;循环(n-1)次得到所须的子列表<br />     (setq 1list (nth n_add xlist))        ;提取0到N-1的每一个元素<br />     (setq nlist1 (cons 1list nlist1))        ;将提取到的元素加入子列表<br />     (setq n_add (1+ n_add))                ;使起始值递增<br />   )<br />   (setq nlist1 (reverse nlist1));返回倒置的子列表<br />   ;;-----------------------------<br />   (setq n_add n)                        ;设置一个递增的起始值<br />   (setq nlist2 '())                        ;先设置一个空的子列表<br />   (setq nn (- (length xlist) n));返回第N个元素以后的元素数量<br />   (repeat nn                ;循环nn次得到所须的子列表<br />     (setq 1list (nth n_add xlist))        ;提取n+1到以后的每一个元素<br />     (setq nlist2 (cons 1list nlist2))        ;将提取到的元素加入子列表<br />     (setq n_add (1+ n_add))                ;使起始值递增<br />   )<br />   (setq nlist2 (reverse nlist2));返回倒置的子列表<br />   (append nlist1 nlist2);连接为新表<br />   <br /> )<br /> <br />   [/FONT]<br />

Underway

2. ;;; HEAD - list of only the first n elements
   
3.      ;;; (including) the n-th element, base 1
   
4.      ;;; (head l 0) ==> nil
   
5.      ;;; (head l 1) ==> first element
   
6. 
   
7.     (defun head (l n) (head-rek l nil n))
   
8.     (defun head-rek (l x n)
   
9.        (cond ((zerop n) (reverse x))
   
10.              (t (head-rek (cdr l) (cons (car l) x) (1- n)))
    
11.        )
    
12.     )
    
13. 
    
14.      ;;; TAIL - list l without the first n elements
    
15. 
    
16.     (defun tail (l n)
    
17.        (cond ((zerop n) l)
    
18.              (t (tail (cdr l) (1- n)))
    
19.        )
    
20.     )

;;; HEAD - list of only the first n elements<br />      ;;; (including) the n-th element, base 1<br />      ;;; (head l 0) ==> nil<br />      ;;; (head l 1) ==> first element<br /> <br />     (defun head (l n) (head-rek l nil n))<br />     (defun head-rek (l x n)<br />        (cond ((zerop n) (reverse x))<br />              (t (head-rek (cdr l) (cons (car l) x) (1- n)))<br />        )<br />     )<br /> <br />      ;;; TAIL - list l without the first n elements<br /> <br />     (defun tail (l n)<br />        (cond ((zerop n) l)<br />              (t (tail (cdr l) (1- n)))<br />        )<br />     )

yjtdkj

小弟太菜了，能解释一下吗？

snoopychen

下面是思路很直接的一种，效率不高，stdlib里面有一种二分法搜索的，不过我看的有点晕
[php]
(defun dnr (n xlist / 1list nlist1 nlist2 nn n_add)
  (setq n_add 0)                       
  (setq nlist1 '())       
  (repeat (length xlist)               
    (cond ((/= n_add n)
    (setq nlist1 (append nlist1 (list (nth n_add xlist))))
    ))
    (setq n_add (1+ n_add))
  )
  nlist1
  )
[/php]

eachy

http://p4.xdcad.net/forum/showthread.php?s=&threadid=451801
http://p4.xdcad.net/forum/showthread.php?s=&threadid=451886

xyp1964

2. [FONT=courier new];;;返回删除列表中第n个元素后的列表
   
3. ;;;(dnr n 列表)
   
4. ;;;(dnr 8 '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7)))→((1 2) (2 3) (3 4) (4 5) (6 7))
   
5. ;;;(dnr 4 '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7)))→((1 2) (2 3) (3 4) (5 6) (6 7))
   
6. 
   
7. (defun dnr (n xlist / l1)
   
8.   (if (<= n (length xlist))
   
9.     (progn
   
10.       (setq l1 '())
    
11.       (repeat (- n 1)
    
12.         (setq l1    (cons (car xlist) l1)
    
13.               xlist (cdr xlist)
    
14.         )
    
15.       )
    
16.       (setq l1 (append (reverse l1) (cdr xlist))
    
17.             xlist l1
    
18.       )      
    
19.     )
    
20.   )
    
21.   xlist
    
22. )[/FONT]

[FONT=courier new];;;返回删除列表中第n个元素后的列表<br /> ;;;(dnr n 列表)<br /> ;;;(dnr 8 '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7)))→((1 2) (2 3) (3 4) (4 5) (6 7))<br /> ;;;(dnr 4 '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7)))→((1 2) (2 3) (3 4) (5 6) (6 7))<br /> <br /> (defun dnr (n xlist / l1)<br />   (if (<= n (length xlist))<br />     (progn<br />       (setq l1 '())<br />       (repeat (- n 1)<br />         (setq l1    (cons (car xlist) l1)<br />               xlist (cdr xlist)<br />         )<br />       )<br />       (setq l1 (append (reverse l1) (cdr xlist))<br />             xlist l1<br />       )      <br />     )<br />   )<br />   xlist<br /> )[/FONT]

狂刀

;; 想的简单一点行不？

2. 
   
3.   [FONT=courier new]
   
4. ;; 表删除第i项元素
   
5. ;;(xl-xi '(0 1 2 3 4 5) 3) -> (0 1 2 4 5)
   
6. (defun xl-xi (l n / i)
   
7.   (setq i -1)
   
8.   (apply 'append
   
9.          (mapcar '(lambda (x)
   
10.                     (setq i (1+ i))
    
11.                     (if        (= i n) nil(list x))
    
12.                   )
    
13.                  l
    
14.          )
    
15.   )
    
16. )
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;; 表删除第i项元素<br /> ;;(xl-xi '(0 1 2 3 4 5) 3) -> (0 1 2 4 5) <br /> (defun xl-xi (l n / i)<br />   (setq i -1)<br />   (apply 'append<br />          (mapcar '(lambda (x)<br />                     (setq i (1+ i))<br />                     (if        (= i n) nil(list x))<br />                   )<br />                  l<br />          )<br />   )<br /> )<br />   [/FONT]<br />

xyp1964

最初由 狂刀 发布
[B];; 想的简单一点行不？
;; 表删除第i项元素
;;(xl-xi '(0 1 2 3 4 5) 3) -> (0 1 2 4 5)
(defun xl-xi (l n / i)
  (setq i -1)
  (apply 'append
         (mapcar '(lambda (x)
                ... [/B]

够简洁。
(setq i -1)有误！

2. [FONT=courier new](defun xl-xi (l n / i)
   
3.   (setq i 0)
   
4.   (apply 'append
   
5.          (mapcar '(lambda (x)
   
6.                     (setq i (1+ i))
   
7.                     (if        (= i n) nil (list x)))
   
8.                  l
   
9.          )))[/FONT]

[FONT=courier new](defun xl-xi (l n / i)<br />   (setq i 0)<br />   (apply 'append<br />          (mapcar '(lambda (x)<br />                     (setq i (1+ i))<br />                     (if        (= i n) nil (list x)))<br />                  l<br />          )))[/FONT]

狂刀

(setq i -1)
无误！
因为一开始mapcar就 (setq i (1+ i))，因此 i 是从 0 起算的，与lisp的习惯相符
这也能从测试 ;;(xl-xi '(0 1 2 3 4 5) 3) -> (0 1 2 4 5)  体现出

xyp1964

最初由 狂刀 发布
[B](setq i -1)
无误！
因为一开始mapcar就 (setq i (1+ i))，因此 i 是从 0 起算的，与lisp的习惯相符
这也能从测试 ;;(xl-xi '(0 1 2 3 4 5) 3) -> (0 1 2 4 5)  体现出 [/B]

(xl-xi '(0 1 2 3 4 5) 3) → (0 1 2 4 5)删除的是表中的第4项而不是第3项！

yjtdkj

我简单的解释了一下，请大家指教

2. 
   
3.   [FONT=courier new]
   
4. ;;;调用方法->(dnr  列表 n)->可返回该列表删除第N个元素后，剩下的列表
   
5. (defun xl-xi (l n / i)
   
6.   (setq i 0);设置初始值
   
7.   (apply 'append
   
8.          (mapcar '(lambda (x)
   
9.                     (setq i (1+ i));每代入一次，增数i＋1，使i始终与n保持一致
   
10.                     (if        (= i n)
    
11.                       nil
    
12.                       (list x)
    
13.                     );当遇到第N个元素时，返回NIL,否则返回本身
    
14.                   );设置一个匿名函数，以X为自变量
    
15.                  l
    
16.          );将列表中每一个元素代入到上面的匿名函数，返回一组新列表
    
17.   );把所有列表结合成一个单一列表
    
18. )
    
19.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;调用方法->(dnr  列表 n)->可返回该列表删除第N个元素后，剩下的列表<br /> (defun xl-xi (l n / i)<br />   (setq i 0);设置初始值<br />   (apply 'append<br />          (mapcar '(lambda (x)<br />                     (setq i (1+ i));每代入一次，增数i＋1，使i始终与n保持一致<br />                     (if        (= i n)<br />                       nil<br />                       (list x)<br />                     );当遇到第N个元素时，返回NIL,否则返回本身<br />                   );设置一个匿名函数，以X为自变量<br />                  l<br />          );将列表中每一个元素代入到上面的匿名函数，返回一组新列表<br />   );把所有列表结合成一个单一列表<br /> )<br />   [/FONT]<br />

非常感谢各路大侠的鼎力相助，小弟感激不尽！！

狂刀

回ｘｙｐ,为免发生歧意，对表项的计数均从０起算，其实ｌｉｓｐ都是这个规则。对表长度、选集及字符的计数才从１起算。

1. 
   
2.   [FONT=courier new]
   
3. nth
   
4. 语法
   
5.      (nth n list)
   
6. 功能及参数
   
7.      此函数将返回 list 中的第 n 个元素, 其中 n 是返回元素的顺序号码 (第一个元素由零开始的)。如果 n 的数目超过 list 中的数目时, 本函数将返回 nil。
   
8. 范例
   
9.     (nth 3 '(a b c d e))              返回             D
   
10.   [/FONT]
    

复制代码

回楼上：
(xl-xi (0 1 2 3 4) 3)
-> (append (list 0) (list 1)(list 2) nil (list 4))
-> (0 1 2 4)

yjtdkj

最初由 xyp1964 发布
[B][];;;返回删除列表中第n个元素后的列表
;;;(dnr n 列表)
;;;(dnr 8 '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7)))→((1 2) (2 3) (3 4) (4 5) (6 7))

(defun dnr (n xlist / l1)
  (if (<= ... [/B]

版主的函数我也简单的解释一下，不对之处请多指教

2. 
   
3.   [FONT=courier new]
   
4. (defun dnr (n xlist / l1)
   
5.   (if (<= n (length xlist));判断数N有没有超过表的长度
   
6.     (progn
   
7.       (setq l1 '());设置一个空表
   
8.       (repeat (- n 1);循环执行N－1次
   
9.         (setq l1    (cons (car xlist) l1);依次将XLIST中的第一项加入到l1中
   
10.               xlist (cdr xlist);依次除去xlist中第一个元素
    
11.         )
    
12.       )
    
13.       (setq l1          (append (reverse l1) (cdr xlist));连接N前面与后面的元素
    
14.             xlist l1
    
15.       );将结果返还给xlist
    
16.     )
    
17.   )
    
18.   xlist
    
19. )
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun dnr (n xlist / l1)<br />   (if (<= n (length xlist));判断数N有没有超过表的长度<br />     (progn<br />       (setq l1 '());设置一个空表<br />       (repeat (- n 1);循环执行N－1次<br />         (setq l1    (cons (car xlist) l1);依次将XLIST中的第一项加入到l1中<br />               xlist (cdr xlist);依次除去xlist中第一个元素<br />         )<br />       )<br />       (setq l1          (append (reverse l1) (cdr xlist));连接N前面与后面的元素<br />             xlist l1<br />       );将结果返还给xlist<br />     )<br />   )<br />   xlist<br /> )<br />   [/FONT]<br />

狂刀

我有点困惑
为什么不是
;;;(dnr 8 '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7)))→((1 2) (2 3) (3 4) (4 5) (6 6) 7)
或
;;;(dnr 8 '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7)))→((1 2) (2 3) (3 4) (5 6) (6 7))

而是
;;;(dnr 8 '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7)))→((1 2) (2 3) (3 4) (4 5) (6 7))
好像不宜理解
是不是应该为“删除炸开表的第n个元素对应的原表所在元素后的一个元素”

xyp1964

最初由 狂刀 发布
[B]回ｘｙｐ,为免发生歧意，对表项的计数均从０起算，其实ｌｉｓｐ都是这个规则。对表长度、选集及字符的计数才从１起算。

nth
语法
     (nth n list)
功能及参数
     此函数将... [/B]

理论上没错，但不符合用户的通常习惯。
谁能理解表(1 2 3 4 5 6 7 8)中的第4项不是4反而是5呢？