Skip to content

Instantly share code, notes, and snippets.

@ctdean

ctdean/gist:268862

Created January 4, 2010 21:03
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save ctdean/268862 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save ctdean/268862 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn separate-2 [f coll]
(loop [coll coll
in nil
out nil]
(if (empty? coll)
[(reverse in) (reverse out)]
(let [cur (first coll)]
(if (f cur)
(recur (rest coll) (cons cur in) out)
(recur (rest coll) in (cons cur out)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment