Question

(defun combinations (&rest lists) (if (car lists) (mapcan (lambda (in-val) (mapcar (lambda (out-val) (cons out-val in-val)) (car lists))) (apply #'combinations (cdr lists))) (list nil)))

此功能组合了任意数量的列表。

(defun main()
  (setq m-list (combinations '(Blacket Bluet Browning Greenfield Whitehall) '(four-leaf-clover penny rabbit-foot ribbon silver-dollar) '(center-field first-base right-field short-stop third-base)))

  (setq constraints  (list '(Browning penny) '(Browning silver-dollar) '(Browning right-field) '(Browning center-field) '(Bluet center-field) '(Bluet right-field) '(Greenfield first-base) '(Greenfield short-stop)
    '(Greenfield third-base) '(Whitehall center-field) '(Whitehall right-field) '(Greenfield four-leaf-clover) '(Greenfield penny) '(Whitehall four-leaf-clover) '(Whitehall penny) 
    '(Blacket four-leaf-clover) '(Blacket penny) '(Blacket first-base) '(Blacket third-base) '(Blacket ribbon) '(Bluet ribbon) '(center-field rabbit-foot)))
  (loop  
    (print m-list)
    (setq n-constraint (car constraints))
    (setq m-list (remove-it m-list n-constraint))
    (setq constraints (cdr constraints))
    (when (null constraints) (return m-list))))

主函数创建两个列表，一个列表，包括玩家，魅力和位置的所有可能组合，以及约束列表，其中每个约束列表中的两个变量不能在一起。然后我创建了一个循环，以便每次迭代采用一个约束，并从主要的组合列表中删除与约束所说的不应该存在的组合。

(defun remove-it (x y) 
    (if (and (not (eq (find (nth 0 y) (car x)) nil) (not (eq (find (nth 1 y)(car x)) nil)))) (setq x (remove (car x) x :test #'equal)))
    (return x))

由于某种原因，remove-it函数仅设法删除与约束相关的所有内容。例如，约束是（Browning penny）。目的是删除包含Browning和penny两个元素的大量组合列表中的任何列表。但是，该函数似乎删除了包含Browning的每个列表和penny。我只希望该函数一起删除包含Browning和Penny的列表。

Answer 1

让我们首先缩进remove-it函数：

(defun remove-it (x y) 
  (if (and (not (eq (find (nth 0 y) (car x)) nil)
                (not (eq (find (nth 1 y)(car x)) nil))))
      (setq x (remove (car x) x :test #'equal)))
  (return x))

随着功能的发展，这是相当荒谬的。 not函数通常只接受一个参数，您（很可能）在第一次not调用后错过了一个右括号。

你也只是检查x的第一个元素，所以如果没关系，你就不会检查列表的其余部分。

您的变量名称不清楚（“x”和“y”实际上是什么意思）。

您不需要显式返回，只需将x作为结尾处的单个表达式即可。

一个可能更好的解决方案可能是（根据我对你真正想要做的事情的理解，即“收集所有没有两个禁用组合的组合”）：

(defun remove-constrained-combinations (combinations constraint-1 constraint-2)
  (loop for combo in combinations
        unless (and (member constraint-1 combinations)
                    (member constraint-2 combinations)
        collect combo))

如何删除列表中包含两个您不想要的元素的列表？

1 个答案: