まあ、ラケットで何とかしようと思っていて、現在ストリームを勉強中です。ストリームを編集する関数を作成しようとしています。たとえば、各ストリームの要素の代わりに (int, element) のペアを追加します。
たとえば、initial_stream : <1,2,3, …> edit_stream : <(int . 1) (int . 2) (int . 3) ….. >
と書いたのですが無限ループに陥りそうです(with int=>13)
(define (stream-add-zero s)
(cons (cons 13 (car (s))) (stream-add-zero (cdr (s)))))
前もって感謝します。