src/sicp/ex3_69.rkt

   1 #lang racket
   2
   3 (define (triples s t u)
   4   (cons-stream (append (stream-car (pairs s t))
   5                        (list (stream-car u)))
   6                (interleave
   7                 (stream-map (lambda(p) (append p (list (stream-car u))))
   8                             (stream-cdr (pairs s t)))
   9                 (triples (stream-cdr s)
  10                          (stream-cdr t)
  11                          (stream-cdr u)))))