Clojure - Liste bir listesinin tüm permütasyon

Question

böyle bir dizi var ki: yani ben bu kelimeler sipariş olabilecek tüm yolları listeleyebilir nasıl

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

word1 word2 word3 
word2 word3 word1 
word3 word2 word1 

vb

Answer 1

kolay yolu math.combinatorics kullanıyor:

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")) 

Düzenleme: Ben math.combinatorics uygulamasına bakmadım, ama burada bir tembel sürümü var çünkü OP bazı kodları takip etmeyi istedi. math.combinatorics rağmen

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

Answer 2

Ben takip etmek daha basit bir şey arıyordum, muhtemelen doğru cevaptır.

(defn permutations [colls] 
    (if (= 1 (count colls)) 
    (list colls) 
    (for [head colls 
      tail (permutations (disj (set colls) head))] 
     (cons head tail))))