]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_80.rkt
rewrite `quote->cons' using `match'.
[sicp.git] / src / sicp / ex3_80.rkt
1 #lang racket
2
3 (define (RLC R L C dt)
4   (define (rlc1 vc0 il0)
5     (define vc (integral (delay dvc) vc0 dt))
6     (define dvc0 (scale-stream il (/ -1 C)))
7     (define il (integral (delay dil) il0 dt))
8     (define dil (add-streams (scale-stream vc (/ 1 L))
9                              (scale-stream il (/ -R L))))
10     (stream-map (lambda (x y) (cons x y)) vc il)))
11
12