Skip to content

Instantly share code, notes, and snippets.

@diegs

diegs/deep-reverse.scm

Created December 7, 2009 09:19
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save diegs/250731 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save diegs/250731 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
deep-reverse.scm
(define (deep-reverse l)
(define (deep-reverse-iter l accum)
(let ((left (cons (if (pair? (car l))
(deep-reverse-iter (car l) ())
(car l))
accum)))
(if (null? (cdr l))
left
(deep-reverse-iter (cdr l) left))))
(deep-reverse-iter l ()))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment