Skip to content

Instantly share code, notes, and snippets.

@fogus

fogus/zencat.clj

Created Jul 7, 2011
Embed
What would you like to do?
(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