これでいいのかな? ストリームを使ったアパート問題のプログラムは以下のようになった.リスト版の決定性計算版よりはるかに遅いので,てっきり間違っていると考えたが,solveからはすぐに戻っているところをみると,動いているのかな? しかし,全解探索するより遅いなんて….効率を何も考えずに書いているからだろうか…. (define (stream-filter-map f l) (stream-delay (stream-filter identity (stream-map f l)))) (define solve (lambda () (stream-delay (stream-filter-map (lambda (floor) (let* ((floor (stream->list floor)) (baker (first floor)) (cooper (second floor)