AI に質問して提示したプログラムがこれ。 (define (stream-cons a b) (cons a (delay b))) (define (stream-car s) (car s)) (define (stream-cdr s) (force (cdr s))) (define (stream-filter p s) (cond ((null? s) '()) ((p (stream-car s)) (stream-con…

いい線はいっているんだけど、 ・処理速度の改善が全然ダメ ・カッコの対応をいつも間違える ・未定義の関数を使用するのでプログラムがエラーで動作しない でダメだねｗｗｗ 何度訂正させても、きちんと動作するプログラムが書けなので、 ４，５回聞いて諦…