IwoHerka/filter.clj

Created June 20, 2019 17:14

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/IwoHerka/39c42a4bd5d001216a3e5ac012d2ef44.js"></script>
Save IwoHerka/39c42a4bd5d001216a3e5ac012d2ef44 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

	(defn filter*
	[p coll]
	(reduce* (fn [acc x] (if (p x) (conj acc x) acc)) [] coll))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment