tcdowney/atom?.ss

Created January 8, 2013 16:28

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

Download ZIP

Definition for atom? for The Little Schemer.

Raw

	(define atom?
	(lambda (x)
	(and (not (pair? x)) (not (null? x)))))

	;; Test code
	(atom? (quote ()))

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