如何将排列程序重写为组合程序？

Question

每个人，我想重写一个 pumutation pro，让它成为一个 组合亲，有什么想法吗？ 例如，输入列表 '(1 2 2) 推算变为 ((1 2 2) (1 2 2) (2 1 2) (2 2 1) (2 1 2) (2 2 1)) 我希望它变成 ((1 2 2) (2 1 2) (2 2 1))

(defun test-company--permutations (lst) （如果（不是 lst） '（零） （cl-mapcan (λ (e) (mapcar (lambda (perm) (cons e perm)) (测试公司--排列 (cl-remove e lst :count 1)))) lst))) (test-company--permutations '(1 2 2))

Answer 1

(defun test-company--permutations (lst)
  (if (not lst)
      '(nil)
    (cl-mapcan
     (lambda (e)
       (mapcar (lambda (perm) (cons e perm))
               (test-company--permutations (cl-remove e lst :count 1))))
     lst)))

(test-company--permutations '(1 2 2))