Resposta ao exercício 24

(defun pi/8-seguinte (x)
  (+ x 4))

(defun pi/8-func (x)
  (/ 1.0 (* x (+ x 2))))

(defun pi (n)
  (* 8 (soma (function pi/8-func)
             1
             (function pi/8-seguinte)
             n)))

> (pi 2000)
3.140592653839793