Skip to content

Instantly share code, notes, and snippets.

@omasanori

omasanori/reverse.scm

Created April 2, 2014 14:45
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save omasanori/9935642 to your computer and use it in GitHub Desktop.
Save omasanori/9935642 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
reverse.scm
(define (reverse xs . args)
(let ((ys (if (not (null? args)) (car args) '())))
(if (null? xs)
ys
(reverse (cdr xs) (cons (car xs) ys)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment