]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_79.rkt
rewrite `quote->cons' using `match'.
[sicp.git] / src / sicp / ex3_79.rkt
1 #lang racket
2
3 (define (solve-2nd f y0 dy0 dt)
4   (define y (integral (delay dy) y0 dt))
5   (define dy (integral (delay ddy) dy0 dt))
6   (define ddy (stream-map f dy y))
7   y)