1 665c255d 2023-08-04 jrmu (defun iterative-improve (good-enough? improve) 2 665c255d 2023-08-04 jrmu (lambda (first-guess) 3 665c255d 2023-08-04 jrmu (labels ( 4 665c255d 2023-08-04 jrmu (improve-iter (guess) 5 665c255d 2023-08-04 jrmu (let ((improved-guess (funcall improve guess))) 6 665c255d 2023-08-04 jrmu (if