(wat-aro)

無職から有職者にランクアップしました

SICP 問題 3.68

元のpairsと違ってcons-streamを使っていないためdelayされないので無限ループになる.

(define (pairs s t)
  (interleave
   (stream-map (lambda (x) (list (stream-car s) x))
               t)
   (pairs (stream-cdr s) (stream-cdr t))))