Skip to content

Instantly share code, notes, and snippets.

@jamiltron

jamiltron/flat.clj

Created July 15, 2011 00:00
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jamiltron/1083758 to your computer and use it in GitHub Desktop.
Save jamiltron/1083758 to your computer and use it in GitHub Desktop.
Download ZIP
Flatten a List
Raw
flat.clj
;; Flatten a Sequence: Write a function which flattens a sequence.
(defn flat [n]
(let [x (first n)
xs (rest n)]
(cond
(empty? n) '()
(coll? x) (concat (flat x) (flat xs))
:else (cons x (flat xs)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment