;3.67
(define (pairs s t)
(cons-stream
(list (stream-car s) (stream-car t))
(interleaves
(interleaves
(stream-map (lambda (x) (list (stream-car s) x)) (stream-cdr t))
(stream-map (lambda (x) (list x (stream-car t))) (stream-cdr s)))
(pairs (stream-cdr s) (stream-cdr t)))))3.67
最新推荐文章于 2024-07-13 17:12:35 发布
扫一扫
5481
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
