(defn subsets [s] (if (empty? s) #{#{}} (let [ts (subsets (rest s))] (->> ts (map #(conj % (first s))) (clojure.set/union ts))))) ;; (subsets #{1 2 3}) ;; => #{ ...
確定! 回上一頁