Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
243
Evidentemente, quanto maior o expoente, mais memória será necessária para armazenar
as operações pendentes de multiplicação. A chamada recursiva a power* é usada
como argumento para *, e somente após a chamada a * o valor é retornado:
(* x ( power * x (- n 1))))))
Após a última chamada recursiva (quando n = 1), o procedimento “volta” da recursão
multiplicando x por um valor que vai crescendo. Podemos modificar o procedimento
para que não seja necessário fazer a multiplicação após a chamada recursiva. usaremos
um argumento extra para o procedimento onde guardaremos o valor acumulado das
multiplicações:
( define power-aux
( lambda (x n acc )
(if (= n 0)
acc
( define power
( power-aux x
( lambda (x n)
(- n 1)
(* x acc )))))
( power-aux x (- n 1) x )))
Esta nova versão do procedimento gera um processo iterativo linear. Não há operações
pendentes durante as chamadas recursivas a power-aux. Quando chamado com
argumentos 3, 4, 3 as chamadas de procedimento realizadas são:
(power-aux 3 4 3)
(power-aux 3 3 9)
(power-aux 3 2 27)
(power-aux 3 1 81)
(power-aux 3 0 243)
243
Versão Preliminar
O procedimento power-aux precisa de uma quantidade constante de memória, ao
contrário do procedimento power*.
24
[ 27 de outubro de 2010 at 15:47 ]