qcom · October 26, 2013 06:14
diff --git a/gistfile1.scm b/gistfile1.scm
 (define (pop lis)
  (define (r a b)
    (if (= (length b) 1)
      a
      (r (cons a (car b)) (cdr b))
  ))
  (cond
    ((NULL? lis) '())
    ((= (length lis) 1) '())
    (else (r (car lis) (cdr lis)))
 ))
	(define (pop lis)
	(define (r a b)
	(if (= (length b) 1)
	a
	(r (cons a (car b)) (cdr b))
	))
	(cond
	((NULL? lis) '())
	((= (length lis) 1) '())
	(else (r (car lis) (cdr lis)))
	))