Odinodin/Plus

Created July 26, 2013 07:40

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

Download ZIP

Rolling your own + using add1, sub1 and recursion

Raw

Plus

	(define +
	(lambda (a b)
	(cond
	[(zero? b) a]
	[else (add1 (+ a (sub1 b)))])))

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