src/sicp/ex3_78.rkt

   1 #lang racket
   2
   3 (define (solve-2nd a b y0 dy0 dt)
   4   (define y (integral (delay dy) y0 dt))
   5   (define dy (integral (delay ddy) dy0 dt))
   6   (define ddy (add-streams (scale-stream dy a)
   7                            (scale-stream y b)))
   8   y)
   9