clojure – 列出列表的所有排列

说我有这样的一套:

#{"word1" "word2" "word3"}

我怎么能列出这些单词可能被订购的所有方式,即

word1 word2 word3
word2 word3 word1
word3 word2 word1

等等

最佳答案
最简单的方法是使用math.combinatorics

user> (require '[clojure.math.combinatorics :as combo])
nil
user> (combo/permutations #{"word1" "word2" "word3"})
(("word1" "word2" "word3") ("word1" "word3" "word2") ("word2" "word1" "word3") ("word2" "word3"    "word1") ("word3" "word1" "word2") ("word3" "word2" "word1"))

编辑:我没有看过math.combinatorics实现,但这里是一个懒惰版本,因为OP要求遵循一些代码.

(defn permutations [s]
  (lazy-seq
   (if (seq (rest s))
     (apply concat (for [x s]
                     (map #(cons x %) (permutations (remove #{x} s)))))
     [s])))

转载注明原文:clojure – 列出列表的所有排列 - 代码日志