Create a gist now

Instantly share code, notes, and snippets.

@roerd /rev.scm
Created Oct 23, 2013

(define (rev lst)
(if (or (null? lst)
(null? (cdr lst)))
lst
(apply (lambda (x . xs)
(apply (lambda (y . ys)
(cons y (rev (cons x (rev ys)))))
(rev xs)))
lst)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment