lunes, 21 de enero de 2008

Calculo Exponencial en Lenguaje Scheme

Escriba una función llamada expo para calcular el exponencial (bn) utilizando la siguiente definición recursiva:

b0 = 1
bn = b * bn-1 (n >= 1)

La función no está definida para valores negativos de n. No pruebe la función para valores grandes ya que crece muy deprisa.

(define (expo b n)
(cond
((< n 0) (display '(No se puede calcular el numero con exponente negativo)))
((= n 0) 1)
(else (* b (expo b (- n 1))))))

No hay comentarios: