kosugi · November 4, 2011 15:27
diff --git a/gistfile1.scm b/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)))))))
	;; 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)))))))
No results found