如何用发电机实现斐波那契？

用户名

我正在尝试实现生成器以在Scheme中制作斐波那契数字的列表，但我做不到。我有两个函数，第一个是以列表形式返回斐波那契数的函数，第二个是生成器函数。

我要做的是最后将斐波那契函数从斐波那契数字列表转换为生成器。

;FIBONACCI NUMBERS
(define (fib n a b i)
 (if
  (= i n)
  (list b)
 (cons b (fib n b (+ a b) (+ i 1)))
 )
)
(define (fibonacci n)
 (cond
 ((= n 1) (list 1))
 (else (fib n 0 1 1))
 )
)

;GENERATOR
(define (generator start stop step)
  (let ((current (- start 1)))
  (lambda ()
  (cond ((>= current stop) #f)
  (else
   (set! current (+ current step))
    current)))))

(define (next generator)
 (generator))

谢谢

由于Sylwester提到了流，因此这是一种流解决方案-

(define fib
  (stream-cons 0
               (stream-cons 1
                            (stream-add fib
                                        (stream-rest fib)))))


(stream->list (stream-take fib 20))
; '(0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181)

stream-add会使用+和流原语将两（2）个流加在一起-

(define (stream-add s1 s2)
  (if (or (stream-empty? s1)
          (stream-empty? s2))
      empty-stream
      (stream-cons (+ (stream-first s1)
                      (stream-first s2))
                   (stream-add (stream-rest s1)
                               (stream-rest s2)))))

或者，您可以采用更通用的方法，该方法允许使用任何过程和任意数量的流-

(define ((stream-lift f) . s)
  (if (ormap stream-empty? s)
      empty-stream
      (stream-cons (apply f (map stream-first s))
                   (apply (stream-lift f) (map stream-rest s)))))

(define stream-add (stream-lift +))

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。