pairsの定義(教科書で定義) (define (pairs s t) (cons-stream (list (stream-car s) (stream-car t)) (interleave (stream-map (lambda (x) (list (stream-car s) x)) (stream-cdr t)) (pairs (stream-cdr s) (stream-cdr t))))) 三つの無限ストリームS,Tお…

Louis Reasonerが定義したpair手続き (define (pairs s t) (interleave (stream-map (lambda (x) (list (stream-car s) x)) t) (pairs (stream-cdr s) (stream-cdr t)))) この定義は動くか?Louis の piars 手続きを使って(pairs integers integers)を評価す…

pairs手続きを修正して(pairs i j)が(i 元のpairs手続き (define (pairs s t) (cons-stream (list (stream-car s) (stream-car t)) (interleave (stream-map (lambda (x) (list (stream-car s) x)) (stream-cdr t)) (pairs (stream-cdr s) (stream-cdr t))))…

牛乳鍋 レタス ナスと牛肉炒め 牛乳鍋の作り方 白菜をざく切りにして鍋に入れて蓋をし、弱火で蒸す 牛乳,鶏ガラスープ,塩,胡椒,豚肉を入れて弱火で煮て火を通す ピーラーで薄く切ったニンジンを入れて火を通す 最後に粉チーズをかける ナスと牛肉炒めの作り…

append のストリーム版(教科書で定義) (define (stream-append s1 s2) (if (stream-null? s1) s2 (cons-stream (stream-car s1) (stream-append (stream-cdr s1) s2)))) 第二のストリームを取り込む前に第一のストリームから全ての要素を取るので無限ストリ…