chrisvest/chrisvest-4clojure-solution38.clj

Forked from anonymous/chrisvest-4clojure-solution38.clj

Created May 2, 2011 13:35

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/chrisvest/951617.js"></script>
Save chrisvest/951617 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

chrisvest-4clojure-solution38.clj

	;; chrisvest's solution to http://4clojure.com/problem/38

	(fn [& xs] (reduce (fn [a b] (if (> a b) a b)) 0 xs))

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