2008-10-03から1日間の記事一覧
まずは,三つ組の無限ストリームを作る関数 triples.これであってんのかなー. (define (triples s t u) (cons-stream (list (stream-car s) (stream-car t) (stream-car u)) (interleave (stream-map (lambda (x) (cons (stream-car s) x)) (pairs t u)) (…
この pairs の実装はどこが間違っているのかという問題です. (define (pairs s t) (interleave (stream-map (lambda (x) (list (stream-car s) x)) t) (pairs (stream-cdr s) (stream-cdr t)))) 実際に走らせてみたところ,無限ループにハマってしまいまし…