ceving/43643335-1.scm

Created April 27, 2017 13:11

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

Download ZIP

http://stackoverflow.com/questions/43643335/creating-a-partition-of-a-set-in-scheme

Raw

43643335-1.scm

	(define (match a b)
	(and (= (length a)
	(length b))
	(= (apply + a)
	(apply + b))))

	(match '(1 4) '(2 3)) ; => #t
	(match '(1 2) '(3 4)) ; => #f

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