Skip to content

Instantly share code, notes, and snippets.

@kosugi

kosugi/gist:1339584

Created November 4, 2011 15:27
Show Gist options
  • Save kosugi/1339584 to your computer and use it in GitHub Desktop.
Save kosugi/1339584 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.scm
;; http://qiita.com/items/857
(define (xpl xs)
(let loop ((xs (reverse xs)) (ys '()))
(if (null? xs) (reverse ys)
(loop (cdr xs) (append ys (list (reverse xs)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment