SICP 問題 3.68
元のpairsと違ってcons-streamを使っていないためdelayされないので無限ループになる.
(define (pairs s t) (interleave (stream-map (lambda (x) (list (stream-car s) x)) t) (pairs (stream-cdr s) (stream-cdr t))))
元のpairsと違ってcons-streamを使っていないためdelayされないので無限ループになる.
(define (pairs s t) (interleave (stream-map (lambda (x) (list (stream-car s) x)) t) (pairs (stream-cdr s) (stream-cdr t))))