./lisp/scheme/test/integral.sc

(load "streams.sc")

(define (stream-integral s dt C)
  (make-stream
   C
   (stream-integral
    (stream-tail s)
    dt
    (+ (stream-head s) C))))

  

(C) 1998-2017 Olaf Klischat <olaf.klischat@gmail.com>