Как я могу получить все возможные перестановки списка с языком Common LISP?

В качестве основного подхода, «все перестановки» следуют этому рекурсивному образцу:

  all permutations of a list L is:
    for each element E in L:
      that element prepended to all permutations of [ L with E removed ]

Если принять, что у вас нет повторяющихся элементов в вашем списке, следует сделать следующее:

(defun all-permutations (list)
  (cond ((null list) nil)
        ((null (cdr list)) (list list))
        (t (loop for element in list
             append (mapcar (lambda (l) (cons element l))
                            (all-permutations (remove element list)))))))

Я думаю, что вина заключается в требовании чистоты. Узоры конструкции, включая MVVM, являются инструментом на панели инструментов, а не их конечным элементом. Если имеет смысл порвать с чистотой модели для хорошо обдуманного случая (и это явно выглядит так, как вы рассматривали этот случай), то порвать с моделью.

Если это работает на вас, и вы не верите, что это чрезмерное бремя обслуживания, то я бы сказал, что ничего плохого в том, что вы сделали. Я думаю, что вы явно выполнили бремя доказывания того, что это разумное решение вашей проблемы, несмотря на то, что реализация MVVM может быть чистой.

(Я считаю этот аргумент похожим на аргументы для многопарадигмных языков. Хотя подход Pure OO может быть применен, иногда более уместно делать вещи в более функциональном пути. Хотя может применяться чисто функциональный подход, иногда компромиссы показывают, что методы ОО стоят больше, чем стоит.)

Пройдите по списку, выбрав каждый элемент по очереди. Этот элемент будет первым элементом вашей текущей перестановки.

Недостатки этот элемент на все перестановки остальных элементов.

В качестве основного подхода, "все перестановки" следуют этому рекурсивному шаблону:

  all permutations of a list L is:
    for each element E in L:
      that element prepended to all permutations of [ L with E removed ]

Если мы примем, что в вашем списке нет дублирующих элементов, то сделаем следующее:

(defun all-permutations (list)
  (cond ((null list) nil)
        ((null (cdr list)) (list list))
        (t (loop for element in list
             append (mapcar (lambda (l) (cons element l))
                            (all-permutations (remove element list)))))))

Я не уверен, что ваш вопрос о том, что ваш вопрос общим Lisp, или в алгоритме.

Есть похожие проблемы (и решения) для других языков здесь, например, Python . Python часто можно перевести на обычные Lisp практически на линии, так что выберите один и портируйте его? : -)