[racket] Error in HtDP Fig 75

From: Michael Situ (michael.o.situ at gmail.com)
Date: Fri Mar 29 15:38:44 EDT 2013

I just wanted to point this error out. Although the proper block of code is
presented on page 329, that block of code is not incorporated in Fig 75.
Additionally, the call to "find-root" is missing "f"

;; find-root : (number -> number) number number -> number
;; to determine a number R such that f has a
;; root between R and (+ R TOLERANCE)
;;
;; ASSUMPTION: f is continuous and monotonic
(define (find-root f left right)
   (cond
      [(<= (- right left) TOLERANCE) left]
      [else
         (local ((define mid (/ (+ left right) 2)))
            (cond
               [(*or* (<= (f mid) 0 (f right)) *(<= (f right) 0 (f mid)))*
                  (find-root* f *mid right)]
               [else
                  (find-root *f *left mid)]))]))


Thanks,
Mike
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20130329/498dd1cd/attachment.html>

Posted on the users mailing list.