Skip to content

Instantly share code, notes, and snippets.

@jobez

jobez/remove_first.clj Secret

Created July 31, 2015 03:34
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 jobez/27edc10dfe867deed82f to your computer and use it in GitHub Desktop.
Save jobez/27edc10dfe867deed82f to your computer and use it in GitHub Desktop.
Download ZIP
remove-first
Raw
remove_first.clj
(defn remove-first [thing stuff]
(first (reduce (fn [acc el]
(if (= el thing)
(reduced (list* (rest stuff) acc))
(conj acc el))) `() stuff)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment