This shows you the differences between two versions of the page.
|
exercise_1.38 [2009/03/02 00:34] mariorz |
exercise_1.38 [2009/03/02 01:51] (current) mariorz |
||
|---|---|---|---|
| Line 2: | Line 2: | ||
| <code scheme> | <code scheme> | ||
| + | |||
| + | (define (cont-frac n d k oper) | ||
| + | (define (cont-frac-inner n d k i) | ||
| + | (if (= i k) (/ (n i) (d i)) (/ (n i) (oper (d i) (cont-frac-inner n d k (+ i 1)))))) | ||
| + | (cont-frac-inner n d k 0)) | ||
| + | |||
| + | |||
| (define (seriesx x) | (define (seriesx x) | ||