emdeesee/calculator.clj

Last active August 29, 2015 14:27

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

Download ZIP

My solution to 4clojure problem 121 (http://www.4clojure.com/problem/121)

Raw

calculator.clj

	(fn e [exp]
	(fn [env]
	(apply ({'+ + '- - '* * '/ /} (first exp))
	(map #(if (seq? %) ((e %) env) (env % %))
	(rest exp)))))

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