Как сделать бесконечный поток x и sin (x) в схеме?

Question

Я хотел бы создать бесконечный поток (x, f (x), f (f (x), f (f (f (x))), ...), и процедура должна принять x в качестве значения и f как процедура. Я попробовал следующий код, но я не знаю, правда ли это ... как я могу улучшить свой код?

(define (f_stream x f) (cons-stream x (f_stream (f x) (lambda (x)
(sin x)) (f x)))) (sin x)) (f x))))

(define (f x) (sin x))

Answer 1

То, что вы сделали, близко, но вы вкладываете в него дополнительный материал о «грехе», пока он должен быть общим. Все, что вам нужно было это:

(define (f_stream x f) (cons-stream x (f_stream (f x) f)))

уведомление f передается как функция вместо использования лямбды.