list - 如何在递归置换函数中一个一个地返回置换列表元素？

Question

我正在尝试编写一个使用 26 个英文字母的解码器。但是从26岁开始!计算量太大，我的排列函数无法返回整个列表，所以我想一个一个地返回这些元素以单独评估它们。如果有人帮助我，那就太棒了。下面是置换函数。

(defun permutations (coll)
    (if (not (cdr coll))
        (list (first coll))
        (loop for el in coll nconc
            (mapcar #'(lambda (combos) 
                (cons el combos))    
                (permutations (remove el coll)))

        )
    )
)

Answer 1

为此，您可以使用 alexandria 库中的 map-permutations。