[求助]：这种情况怎么循环？

真龙天子

大家新年好！我碰到一个小难题，花了不少时间还没解决，情况如下：
一个数据表里有5个数为1、2、3、4、5，要求1分别与2、3、4、5相加一次，2分别与3、4、5相加一次，3分别与4、5相加一次，4和5相加一次。请问高手有不有比较简单的循环？

taner

最初由 真龙天子 发布
[B]大家新年好！我碰到一个小难题，花了不少时间还没解决，情况如下：
一个数据表里有5个数为1、2、3、4、5，要求1分别与2、3、4、5相加一次，2分别与3、4、5相加一次，3分别与4、5相加一次，4和5相加一次。请问高手有... [/B]

2. 
   
3.   [FONT=courier new]
   
4. ;;;如果只有5个数,不需要循环
   
5. (defun 1st (x)
   
6.   (car x)
   
7. )
   
8. (defun 2nd (lst)
   
9.   (cadr lst)
   
10. )
    
11. (defun 3rd (lst)
    
12.   (caddr lst)
    
13. )
    
14. (defun 4th (lst)
    
15.   (cadddr lst)
    
16. )
    
17. (defun 5th (lst)
    
18.   (car (cddddr lst))
    
19. )
    
20. (defun test (lst)
    
21.   (list (+ (1st lst) (2nd lst) (3rd lst) (4th lst) (5th lst)) (+
    
22.                                                                  (2nd lst)
    
23.                                                                  (3rd lst)
    
24.                                                                  (4th lst)
    
25.                                                                  (5th lst)
    
26.                                                               ) (+
    
27.                                                                    (3rd lst)
    
28.                                                                    (4th lst)
    
29.                                                                    (5th lst)
    
30.                                                                 )
    
31.         (+ (4th lst) (5th lst))
    
32.   )
    
33. )
    
34. 
    
35.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;如果只有5个数,不需要循环<br /> (defun 1st (x)<br />   (car x)<br /> )<br /> (defun 2nd (lst)<br />   (cadr lst)<br /> )<br /> (defun 3rd (lst)<br />   (caddr lst)<br /> )<br /> (defun 4th (lst)<br />   (cadddr lst)<br /> )<br /> (defun 5th (lst)<br />   (car (cddddr lst))<br /> )<br /> (defun test (lst)<br />   (list (+ (1st lst) (2nd lst) (3rd lst) (4th lst) (5th lst)) (+<br />                                                                  (2nd lst)<br />                                                                  (3rd lst)<br />                                                                  (4th lst)<br />                                                                  (5th lst)<br />                                                               ) (+<br />                                                                    (3rd lst)<br />                                                                    (4th lst)<br />                                                                    (5th lst)<br />                                                                 )<br />         (+ (4th lst) (5th lst))<br />   )<br /> )<br /> <br />   [/FONT]<br />

phoenixdjq

(defun c:jj()
(setq biao (list 1 2 3 4 5))
(setq len (vl-list-length biao))
(repeat (- len 1)
(setq a (car biao))
(setq jieguo (mapcar '(lambda (x)  (+ a x)) (cdr biao)))
(princ "\n")
(princ jieguo)
(princ "\n")
(setq biao (cdr biao))
(princ)
)
(textscr)
)
适用一下

Underway

(defun Lst-1 (lst)
   (cond
    ((cadDr lst) (Cons lst (Lst-1 (cdr lst))))
    (T (List Lst))
   )
)


(SETQ LST '(1 2 3 4 5))
(Mapcar
  (function
    (lambda (lst) (apply '+ lst))
  )
  (Lst-1 Lst)
)

carrot1983

学习了楼上的。自己编了两个。当中test2运行后有一个问题：就是如何去掉最后结果中表最后一个nil值。我的问题是：如果有一表里有n个表，那么如何去掉n当中任意一个。比如第100个去掉。
[php]
(defun c:test1(/ lst k len n1 n2 n3 n4)
  (setq lst '(1 2 3 4 5))
  (setq k 0)
  (setq len (1- (length lst)))
(while (<= k len)
  (cond
  ((= k 0) (setq n1 (mapcar '(lambda (x) (+ x (nth k lst))) (cdr lst))))
  ((= k 1) (setq n2 (mapcar '(lambda (x) (+ x (nth k lst))) (cddr lst))))
  ((= k 2) (setq n3 (mapcar '(lambda (x) (+ x (nth k lst))) (cdddr lst))))
  ((= k 3) (setq n4 (mapcar '(lambda (x) (+ x (nth k lst))) (cddddr lst))))
  )
  (setq k (1+ k))
)
  (reverse (list n1 n2 n3 n4))
)


(defun c:test2(/ lst k len lis lss)
    (setq lst '(1 2 3 4 5))
    (setq k 0)
    (setq len (1- (length lst)))
(while (<= k len)
    (setq lis (mapcar '(lambda (x) (+ x (nth k '(1 2 3 4 5)))) (cdr lst)))
    (if (= lss nil)
      (progn
      (setq lss (cons lis '()))
      )
      (setq lss (cons lis lss))
    )
    (setq k (1+ k) lst (cdr lst))
)
    (reverse lss)
)


[/php]

雨箭风刀

[php]
(defun xx(lst)
  (mapcar '(lambda(x)(apply '+ (cons (car lst) (setq lst(cdr lst)))))  (cdr lst))
)[/php]

真龙天子

自己摸索出了解决办法，如下
    m为表里元素总数  ptn为数据表
(setq k 0)
     (repeat (- m 1)
            (setq a (nth k ptn))
            (setq n k)
        (repeat (- m k)
               (setq n (+ n 1))
              (setq b (nth n ptn))
               (setq c (+ a b ))
        )
        (setq k (+ k 1))
   )