Slackwise/reduce.scm

Last active March 16, 2018 11:42

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

Download ZIP

Reduce in Scheme: my favorite function ever, written as reduced as possible, using only special forms.

Raw

	(define (reduce f i l)
	(if (null? l)
	i
	(f i (reduce f (car l) (cdr l)))))

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