clojure: перестановки подмножеств?

Question

Я новичок в Clojure, ищу функцию, чтобы генерировать перестановки подмножеств:

=> (find-subsets 1 #{1 2 3 4}) 
(#{1} #{2} #{3} #{4}) 

=> (find-subsets 2 #{1 2 3 4}) 
(#{1 2} #{1 3} #{1 4} #{2 3} #{2 4} #{3 4}) 

=> (find-subsets 3 #{1 2 3 4}) 
(#{1 2 3} #{1 3 4} #{2 3 4}) 

Существует ли такая вещь? Если нет, есть ли хороший, чистый, идиоматический способ кодирования функции?

Answer 1

Посмотрите на combinatorics. Он делает то, что вам нужно:

; all the unique ways of taking n different elements from items 
(clojure.math.combinatorics/combinations [1 2 3] 2) 
;;=> ((1 2) (1 3) (2 3)) 

Если он жалуется, потому что вы используете набор вместо вектора, просто преобразовать в вектор с VEC перед вызовом combinations.