Схема: Рекурсия для квадратного корня

Question

(define average (lambda (x y)(/ (+ x y) 2))) 
(define improve (lambda (guess X)(average guess (/ X guess)))) 
(define close-enuf? (lambda(guess X) (<(abs (- (* guess guess) X))0.1))) 
(define loop (lambda (guess X)(if close-enuf? guess X) guess (loop (improve guess X) X))) 
(loop 3 2) 

Когда я пытаюсь запустить программу, она идет без вывода каких-либо результатов. Как это исправить?

Answer 1

Я рекомендую вам написать код с лучшим стилем отступа, потому что это сделает ошибку более заметной.

(define average 
    (lambda (x y)(/ (+ x y) 2))) 

(define improve 
    (lambda (guess X)(average guess (/ X guess)))) 

(define close-enuf? 
    (lambda(guess X) 
    (< (abs (- (* guess guess) X)) 0.5))) 

(define loop 
    (lambda (guess X) 
    (if close-enuf? guess X) ;; see the error here? (if (close-enuf? guess X) 
     guess (loop (improve guess X) X))) ;need another bracket here 

Я получил ответ 1 21145/50952.