Skip to content

Instantly share code, notes, and snippets.

@nberger

nberger/concat.clj

Last active December 27, 2015 12:59
Show Gist options
  • Save nberger/7330019 to your computer and use it in GitHub Desktop.
Save nberger/7330019 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
concat.clj
(defn concat
([] '())
([x] x)
([x y]
(cons
(first x)
(lazy-seq
(if (empty? (rest x))
(concat y)
(concat (rest x) y)))))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment