求一个表函数

spiderman

请帮忙写一个表函数，要求对某个表中的元素两两相减，求绝对值，去重，得到一个新表，谢谢。
比如表'(14 16 23 7 29)，通过两两相减计算得到：
|14-16|=2    |14-23|=9    |14-7|=7        |14-29|=15
|16-23|=7    |16-7|=9      |16-29|=13
|23-7|=16    |23-29|=6
|7-29|=22
去重之后，得到新表'(2 9 7 15 13 16 6 22)

USER2128

(DEFUN tt (lst / )
  (setq rtn (append rtn (mapcar '(lambda(x) (abs (- (car lst) x))) (cdr lst))))
  (if (cdr lst) (tt (cdr lst)))
  )
(setq lst '(14 16 23 7 29))
(setq rtn nil)
(tt lst)
(vl-sort rtn '<)

819534890

1. (defun sub_abs(num lst) ;返回数字num减表 lst各元素后的绝对值表
   
2. (mapcar '(lambda (x) (abs (- num x))) lst)
   
3. )
   
4. (defun LstDelSame   (lst / x nl) ;删除表中相同元素
   
5.         (foreach        x lst
   
6.                 (if (not (member x nl))
   
7.                         (setq nl (cons x nl))
   
8.                 )
   
9.         )
   
10.         (reverse nl)
    
11. )
    
12. (defun lst_sub_abs(lst / l lst_tmp end_lst)  ;满足楼主的函数
    
13. (setq lst_tmp lst)
    
14. (foreach l lst
    
15. (setq end_lst (append end_lst (sub_abs l (setq lst_tmp (cdr lst_tmp) ))))
    
16. )
    
17. (LstDelSame end_lst)
    
18. )

(defun sub_abs(num lst) ;返回数字num减表 lst各元素后的绝对值表<br /> (mapcar '(lambda (x) (abs (- num x))) lst)<br /> )<br /> (defun LstDelSame   (lst / x nl) ;删除表中相同元素<br />         (foreach        x lst<br />                 (if (not (member x nl))<br />                         (setq nl (cons x nl))<br />                 )<br />         )<br />         (reverse nl)<br /> )<br /> (defun lst_sub_abs(lst / l lst_tmp end_lst)  ;满足楼主的函数<br /> (setq lst_tmp lst)<br /> (foreach l lst<br /> (setq end_lst (append end_lst (sub_abs l (setq lst_tmp (cdr lst_tmp) ))))<br /> )<br /> (LstDelSame end_lst)<br /> )

_$ (lst_sub_abs '(14 16 23 7 29))
(2 9 7 15 13 16 6 22)
_$

xyp1964

2. (defun abc (lst)
   
3.   (vl-sort (xyp-list-delsame
   
4.              (mapcar '(lambda (x) (abs (- (car x) (cadr x))))
   
5.                      (xyp-List-Combination lst 2)
   
6.              )
   
7.            )
   
8.            '<
   
9.   )
   
10. )

(defun abc (lst)<br />   (vl-sort (xyp-list-delsame<br />              (mapcar '(lambda (x) (abs (- (car x) (cadr x))))<br />                      (xyp-List-Combination lst 2)<br />              )<br />            )<br />            '<<br />   )<br /> )

冰与火之歌

(defun tt(p / lst)
   (setq lst '())
  (while p
   (setq lst (append lst (mapcar '(lambda (x) (if (cdr p) (abs (- (car p) x)))) (cdr p))))
   (setq p (cdr p))
   )
    (vl-sort (vl-remove nil lst) '<)
  )

wowan3344

1

2. (defun t11 (l / a b c d)
   
3.     (mapcar
   
4.         '(lambda(a)
   
5.             (mapcar
   
6.                 '(lambda(b)
   
7.                     (setq c (abs(- b a)))
   
8.                     (or (member c d)(setq d (cons c d)))
   
9.                 )
   
10.                 (setq l (cdr l))
    
11.             )
    
12.         )
    
13.         l
    
14.     )
    
15.     d
    
16. )

(defun t11 (l / a b c d) <br />     (mapcar<br />         '(lambda(a)<br />             (mapcar<br />                 '(lambda(b)<br />                     (setq c (abs(- b a)))<br />                     (or (member c d)(setq d (cons c d)))<br />                 )<br />                 (setq l (cdr l))<br />             )<br />         )<br />         l<br />     )<br />     d<br /> )

2

2. (defun T12 (l / x)
   
3.     (mapcar
   
4.         '(lambda(a)
   
5.             (mapcar
   
6.                 '(lambda(b)
   
7.                     (setq x (cons (abs(- b a)) x))
   
8.                 )
   
9.                 (setq l (cdr l))
   
10.             )
    
11.         )
    
12.         l
    
13.     )
    
14.     (vl-sort x '<)
    
15. )

(defun T12 (l / x) <br />     (mapcar<br />         '(lambda(a)<br />             (mapcar<br />                 '(lambda(b)<br />                     (setq x (cons (abs(- b a)) x))<br />                 )<br />                 (setq l (cdr l))<br />             )<br />         )<br />         l<br />     )<br />     (vl-sort x '<)<br /> )

namezg

;|
对某个表中的元素两两相减，求绝对值，去重，得到一个新表。
比如表'(14 16 23 7 29)，通过两两相减计算得到：
|14-16|=2    |14-23|=9    |14-7|=7        |14-29|=15
|16-23|=7    |16-7|=9      |16-29|=13
|23-7|=16    |23-29|=6
|7-29|=22
去重之后，得到新表'(2 9 7 15 13 16 6 22)
|;

1. ;(zg-test (setq lst '(14 16 23 7 29)))
   
2. ;(2 9 7 15 13 16 6 22)
   
3. (defun zg-test (lst / newlst value)
   
4.         (mapcar
   
5.                 '(lambda (y)
   
6.                         (mapcar
   
7.                                 '(lambda (x)
   
8.                                         (if (not (member (setq value (abs (- y x))) newlst))
   
9.                                                 (setq newlst (cons value newlst))
   
10.                                         )
    
11.                                 )
    
12.                                 (setq lst (cdr lst))
    
13.                         )
    
14.                 )
    
15.                 lst
    
16.         )
    
17.         (reverse newlst)
    
18. )
    

;(zg-test (setq lst '(14 16 23 7 29)))<br /> ;(2 9 7 15 13 16 6 22)<br /> (defun zg-test (lst / newlst value)<br />         (mapcar<br />                 '(lambda (y)<br />                         (mapcar<br />                                 '(lambda (x)<br />                                         (if (not (member (setq value (abs (- y x))) newlst))<br />                                                 (setq newlst (cons value newlst))<br />                                         )<br />                                 )<br />                                 (setq lst (cdr lst))<br />                         )<br />                 )<br />                 lst<br />         )<br />         (reverse newlst)<br /> )<br />

434939575

这个有点看不懂，学习了！

自贡黄明儒

(defun t1 (lst)
  (if (cdr lst)
    (append (mapcar '(lambda (x y) (abs (- x y))) lst (cdr lst)) (t1 (cdr lst)))
  )
)
(setq lst '(14 16 23 7 29))
(t1 lst)=>(2 7 16 22 7 16 22 16 22 22)

USER2128

自贡黄明儒 发表于 2014-11-23 19:55
(defun t1 (lst)
  (if (cdr lst)
    (append (mapcar '(lambda (x y) (abs (- x y))) lst (cdr lst)) ( ...

还是黄大侠的这个最为经典！