利用vl-remove-if 删除二维表中重复元素


网友答: 你括号位置不对吧
(= (car a1) (car a2)）

网友答:
这里是手误，当时还是没有解决问题
    (setq         aa        '((10 12) (11 13) (15 8) (11 13)))       
    (setq         bb        (vl-remove-if  (function (lambda (a1 a2) (and (= (car a1) (car a2))(= (cadr a1) (cadr a2))))) aa))                                       


网友答: (setq aa '((10 12) (11 13) (15 8) (11 13)))
(foreach b aa  
  (if (null (member b ns))
    (setq ns (cons b ns))
    )
  )
(reverse ns)

网友答:
这确实是个可行的好方法，但是我想尝试用一个命令行来解决这个问题，也就定位到了vl-remove-if，但是貌似不太好实现呢

网友答:
解决了
(setq         aa        '((10 12) (11 13) (15 8) (11 13)))
(setq RET '())
(vl-remove-if
  (function (lambda (x)
              (IF (NOT (MEMBER x RET))
                (SETQ RET (CONS x RET))
                nil
              ) ;_ 结束IF
            ) ;_ 结束lambda
  ) ;_ 结束function
  aa
) ;_ 结束vl-remove-if


网友答:
解决了
(setq         aa        '((10 12) (11 13) (15 8) (11 13)))
(setq RET '())
(vl-remove-if
  (function (lambda (x)
              (IF (NOT (MEMBER x RET))
                (SETQ RET (CONS x RET))
                nil
              ) ;_ 结束IF
            ) ;_ 结束lambda
  ) ;_ 结束function
  aa
) ;_ 结束vl-remove-if

网友答: 本帖最后由 yshf 于 2026-2-6 10:52 编辑


    (setq aa '((10 12) (11 13) (15 8) (11 13)))
    ; ;; 如果不考虑顺序，实现如下
    (setq bb (cons '(11 13) (vl-remove-if '(lambda(x)(equal x '(11 13))) aa)))


网友答:
    (setq aa '((10 12) (11 13) (15 8) (11 13)))
    ; ;; 如果不考虑顺序，实现如下
    (setq bb (cons '(11 13) (vl-remove-if '(lambda(x)(equal x '(11 13))) aa)))