tcdowney/member?.scm

Created January 9, 2013 18:10

Star (0) You must be signed in to star a gist
Fork (1) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/tcdowney/4495393.js"></script>
Save tcdowney/4495393 to your computer and use it in GitHub Desktop.

Download ZIP

The definition for member? for The Little Schemer. Returns #t if the first argument (an atom) is found in the second argument (a list of atoms).

Raw

member?.scm

	(define member?
	(lambda (a lat)
	(cond
	((null? lat) #f)
	(else (or (eq? (car lat) a) (member? a (cdr lat)))))))

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