Generador Fib

(define (fib n a b i)
  (if
   (= i n)
   (list b)
   (list b (lambda () (fib n b (+ a b) (+ i 1))))
   )
)

(define (fibonacci (x -1))
  (cond
    ((= x 1) (list 1))
    (else (fib x 0 1 1))
   )
)

(define (take n g)
  (cond
    ((= n 0) (list))
    (else (g n))
  )
)

(define (gen->list g)
  (cond
    ((not (null? (cdr g))) (cons (car g) (gen->list ((cadr g)))))
    (else (list (car g)))
  )
)
;se llaman como en el ppt pero en vez de fib es fibonacci