]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_78.rkt
rewrite `quote->cons' using `match'.
[sicp.git] / 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