clojure - elenco tutte le permutazioni di una lista

Question

dire che ho un set come questo:

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

Come potrei elencare tutti i modi che queste parole potrebbero essere ordinati, cioè

word1 word2 word3 
word2 word3 word1 
word3 word2 word1 

ecc

Answer 1

Il modo più semplice sta usando 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")) 

Modifica: non ho esaminato l'implementazione di math.combinatorics, ma questa è una versione lenta perché OP ha richiesto un codice da seguire.

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

Answer 2

Anche se math.combinatorics è probabilmente la risposta giusta, cercavo qualcosa di più semplice da seguire. Qui di seguito è un'implementazione non pigro che riesco a seguire:

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