src/sicp/ex3_71.rkt

   1 #lang racket
   2
   3 (define (stream-duplicates s)
   4   (if (= (stream-car s) (stream-car (stream-cdr s)))
   5       (cons-stream (stream-car s)
   6                    (stream-duplicates (stream-cdr s)))
   7       (stream-duplicates (stream-cdr s))))
   8
   9 (define (cube-sum i j)
  10   (+ (* i i i) (* j j j)))
  11
  12 (display-stream (stream-duplicates (stream-map (lambda (p)
  13                                                  (cube-sum (car p) (car (cdr p))))
  14                                                (weighted-pairs integers integers cube-sum))))