Skip to content

Instantly share code, notes, and snippets.

@secwang

secwang/gist:0d332f0e9fce78e8e2f5

Created December 28, 2014 14:39
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save secwang/0d332f0e9fce78e8e2f5 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save secwang/0d332f0e9fce78e8e2f5 to your computer and use it in GitHub Desktop.
Download ZIP
snippets for subset of list
Raw
gistfile1.clj
(defn subsets [things]
(if (empty? things) '(())
(let [srt (subsets (rest things))]
(concat (map #(cons (first things) %) srt) srt))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment