2.scm

   1 (require (only (lib "1.ss" "srfi") filter)\r
   2          "streams.ss")\r
   3 \r
   4 (define (sum-even-fibonacci limit fibs sum)\r
   5   (cond ((> (stream-car fibs) limit) \r
   6          sum)\r
   7         ((= (modulo (stream-car fibs) 2) 0)\r
   8          (sum-even-fibonacci \r
   9           limit (stream-cdr fibs) (+ sum (stream-car fibs))))\r
  10         (else\r
  11          (sum-even-fibonacci\r
  12           limit (stream-cdr fibs) sum))))\r
  13 \r
  14 (sum-even-fibonacci 1000000 fibonacci 0)