Roots of a function: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,293: / Line 3,293: @@
 (define (find-root f interval)
   (define (display-exactness root)
-    (display (if (and (exact? root) (exact? (f root)))
+    (display (if (and (exact? root)
+                      (exact? (f root))
+                      (zero? (f root)))
                  "  (exact)    "
                  "  (inexact)  ")))