[求助]这样的情况怎么循环？

lht

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

HuaiYu

请楼主试试，

(Defun C:TT1 (/ lstTest)
  (Defun fun (lst)
    (if (> (length lst) 0)
      (progn
 (princ "\n*****")
 (foreach n (cdr lst)
   (foreach m (list "\n" (car lst) "+" n) (princ m))
 )
      )
    )
    (fun (cdr lst))
  )
  (setq lstTest '(1 2 3 4 5))
  (fun lstTest)
  (prin1)
)

运行结果如下所示:

*****
1+2
1+3
1+4
1+5
*****
2+3
2+4
2+5
*****
3+4
3+5
*****
4+5
*****

lht

谢谢！这么快就回复了！