/zencat.clj
Created Jul 7, 2011
| (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