stream - 双主流

Question

我想生成一个孪生素数流，该流如下

((3 5) (5 7) (11 13) (17 19) ...) 

等等。我有一个生成素数流的函数，以及一个将它们配对在一起的函数。我感到困惑的是如何改变我的配对函数，以便只有孪生素数配对在一起。我的配对功能是:

(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)))))

目前，当传入相同的素数流时，我收到以下输出

((2 2) (2 3) (3 3) (2 5) (3 5) ...)

Answer 1

在明显的位置添加一个(stream-filter (lambda (x) (= (- (cadr x) (car x)) 2)) ...)。