Skip to content

Instantly share code, notes, and snippets.

@fogus

fogus/zencat.clj

Created July 7, 2011 13:25
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 fogus/1069495 to your computer and use it in GitHub Desktop.
Save fogus/1069495 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
zencat.clj
(defn zencat [x y]
(loop [src y, ret (transient x)]
(if (seq src)
(recur (next src)
(conj! ret (first src)))
(persistent! ret))))
(zencat [1 2 3] [4 5 6])
;=> [1 2 3 4 5 6]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment