Advertisement
Guest User

Untitled

a guest
Oct 5th, 2013
34
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn my-flatten
  2. [x]
  3. (if (coll? (first x))
  4. (concat
  5. (my-flatten (first x))
  6. (my-flatten (rest x)))
  7. (conj (first x) (my-flatten (rest x)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement