<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div><br></div><div>Thanks for the bug report. </div><div><br></div><div>It turns out that someone had reported the mistake before, but for some reason, the revised typo list didn't make it to the web site (<a href="http://www.htdp.org/2003-09-26/typos.html">http://www.htdp.org/2003-09-26/typos.html</a>). </div><div><br></div><div>-- Matthias</div><div><br></div><div><br></div><br><div><div>On Mar 29, 2013, at 3:38 PM, Michael Situ wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div dir="ltr">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"<br> <div><br>;; find-root : (number -> number) number number -> number<br>;; to determine a number R such that f has a<br>;; root between R and (+ R TOLERANCE)<br>;;<br>;; ASSUMPTION: f is continuous and monotonic<br>(define (find-root f left right)<br>    (cond<br>      [(<= (- right left) TOLERANCE) left]<br>      [else<br>         (local ((define mid (/ (+ left right) 2)))<br>            (cond<br>               [(<b>or</b> (<= (f mid) 0 (f right)) <b>(<= (f right) 0 (f mid)))</b><br>                   (find-root<b> f </b>mid right)]<br>               [else<br>                  (find-root <b>f </b>left mid)]))]))<br><br><br></div><div>Thanks,<br></div><div>Mike<br></div></div> ____________________<br>  Racket Users list:<br>  <a href="http://lists.racket-lang.org/users">http://lists.racket-lang.org/users</a><br></blockquote></div><br></body></html>