Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (new-if predicate then-clause else-clause)
- (cond (predicate then-clause)
- (else else-clause)))
- (define (sqrt-iter guess x)
- (new-if (good-enough? guess x)
- guess
- (sqrt-iter (improve guess x)
- x)))
Advertisement
Add Comment
Please, Sign In to add comment
