dingbat · November 25, 2012 06:42
diff --git a/gistfile1.scm b/gistfile1.scm
 (define (uncycle lst) (uncycle2 lst lst))  ; recursive handle
 (define (uncycle2 lst orig) (if (null? lst) 
                                '()  ; means it wasn't actually a cycle, but we forgive
                                (if (eq? (cdr lst) orig) ; base case. (if the cdr is the list itself)
                                    (list (car lst))  ; return just the element previous
                                    (cons (car lst)                     ; otherwise, recurse. add the prev element
                                          (uncycle2 (cdr lst) orig))))) ; onto the uncycle'd next part of the list
	(define (uncycle lst) (uncycle2 lst lst)) ; recursive handle
	(define (uncycle2 lst orig) (if (null? lst)
	'() ; means it wasn't actually a cycle, but we forgive
	(if (eq? (cdr lst) orig) ; base case. (if the cdr is the list itself)
	(list (car lst)) ; return just the element previous
	(cons (car lst) ; otherwise, recurse. add the prev element
	(uncycle2 (cdr lst) orig))))) ; onto the uncycle'd next part of the list
No results found