t-ob/gcd.clj

Created May 18, 2012 15:47

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

Download ZIP

Recursively compute the gcd of two numbers

Raw

gcd.clj

	(fn gcd [a b]
	(if (zero? b)
	a
	(recur b (rem a b))))

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