gistfile1.clj

;; clojure.core/flatten from
;; http://clojuredocs.org/clojure_core/clojure.core/flatten
;; Copyright Rich Hickey

(defn flatten
  "Takes any nested combination of sequential things (lists, vectors,
	  etc.) and returns their contents as a single, flat sequence.
	  (flatten nil) returns nil."
  {:added "1.2"
   :static true}
  [x]
  (filter (complement sequential?)
          (rest (tree-seq sequential? seq x))))