通过 AutoLISP 中的列表列表建立索引

Question

我有一个整数列表列表：

(setq a '(21 14 35 29 16 28))
(setq b '(15 36 21 17 45 41))
(setq c '(24 21 35 28 17 21))

总共可能有 50 +/- 列表。

我有另一个列表：

(setq me '(17 14 31 21 17 28))

我想循环遍历列表的初始列表，并从列表 me 中减去列表 a 的每个成员（第一次）。

我如何能够通过列表的初始列表进行索引以便我可以执行比较？

Answer 1

如果我假装理解你在问什么...

(setq 
    a  '(21 14 35 29 16 28)
    b  '(15 36 21 17 45 41)
    c  '(24 21 35 28 17 21)
    me '(17 14 31 21 17 28)
    lst (append a b c)
)

(setq result 
    (vl-remove-if
       '(lambda (x) (member x lst))
        me
    )
)    

结果的值是 (31)

如果 ^ 是你正在寻找的那么一个更通用的解决方案：

(defun foo ( lst listOfLists )
    (   (lambda ( grandList )
            (vl-remove-if
               '(lambda (x) (member x grandList))
                lst
            )
        )
        (apply 'append listOfLists)
    )        
)

(foo me (list a b c)) 

返回 (31)