SHOW:
|
|
- or go back to the newest paste.
| 1 | (define (new-if predicate then-clause else-clause) | |
| 2 | (cond (predicate then-clause) | |
| 3 | (else else-clause))) | |
| 4 | ||
| 5 | (define (sqrt-iter guess x) | |
| 6 | (new-if (good-enough? guess x) | |
| 7 | guess | |
| 8 | (sqrt-iter (improve guess x) | |
| 9 | - | x))) |
| 9 | + | x))) |
| 10 | ||
| 11 | ||
| 12 | (define (sqrt x) | |
| 13 | (sqrt-iter 1.0 x)) |
