gistfile1.clj

;; c.c.combinatorics/subsetsを使って、べき集合（Powerset）を作る

(use '[clojure.contrib.combinatorics :only (subsets)])

(subsets '())
;(())

(subsets '(1))
;(() (1))

(subsets '(1 2))
;(() (1) (2) (1 2))

(subsets '(1 2 3))
;(() (1) (2) (3) (1 2) (1 3) (2 3) (1 2 3))

;; ベクタでもOK
(subsets [])
;(())

(subsets [2 3])
;(() (2) (3) (2 3))

(subsets [2 3 [2 9]])
;(() (2) (3) ([2 9]) (2 3) (2 [2 9]) (3 [2 9]) (2 3 [2 9]))


;; 遅延シーケンスで返している
(type (subsets [1 2 3]))
;clojure.lang.LazySeq