buitcj/4clojure-57

Created December 28, 2016 06:44

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

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

Download ZIP

Raw

4clojure-57

	(fn compose [& fs]
	(when-let [[f & fs] (seq (reverse fs))]
	(reduce #(fn [& args] (%2 (apply % args))) f fs)))

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