Skip to content

Instantly share code, notes, and snippets.

/jneira-4clojure-solution85.clj

Created May 20, 2011 17:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save anonymous/983322 to your computer and use it in GitHub Desktop.
Save anonymous/983322 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
jneira-4clojure-solution85.clj
;; jneira's solution to Power Set
;; https://4clojure.com/problem/85
(fn P [S]
(if (empty? S) #{S}
(let [e (first S)
T (disj S e)
PT (P T)
F (fn [e T] (set (map #(conj % e) T)))]
(set (concat PT (F e PT))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment