>>806
;; Common Lisp
(defun solve (fx a b eps)
(let ((fa (funcall fx a)) (fb (funcall fx b)))
(if (<= (* fa fb) 0)
(do ((c) (fc))
((< (abs (- b a)) eps) (float c))
(setf c (/ (+ a b) 2)
fc (funcall fx c))
(format t "f(~A) = ~A\n" (float c) fc)
(if (< (* fa fc) 0)
(setf b c
fb fc)
(setf a c
fa fc))))))

(solve #'(lambda (x) (- (exp x) (* 3 x))) 0.0 1.0 1.0e-5)