Skip to content

Instantly share code, notes, and snippets.

@missingfaktor

missingfaktor/find.clj

Created July 3, 2016 10:39
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save missingfaktor/2e2f38c328be4656e746be1e2b075d01 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save missingfaktor/2e2f38c328be4656e746be1e2b075d01 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
find.clj
(defn find [seq' pred]
(match seq'
(:seq [(:and x [(!pred pred)]) & :_]) x
(:seq [:_ & rest]) (find rest pred)
(:seq []) nil))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment