Practice 3.68
(define (pairs s t)
(interleave
(stream-map (lambda (x) (list (stream-car s) x))
(pairs (stream-cdr s) (stream-cdr t)))))
因为没有cons-stream,所以会没有delay后面的部分,这个过程会一直递归pairs,无限递归下去
(define (pairs s t)
(interleave
(stream-map (lambda (x) (list (stream-car s) x))
(pairs (stream-cdr s) (stream-cdr t)))))
因为没有cons-stream,所以会没有delay后面的部分,这个过程会一直递归pairs,无限递归下去