Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
inc-val
get-val
faz-contador
(lambda ()
(lambda ()
(let ((valor 0)) valor)
(list (lambda ()
valor)
(lambda ()
(set! valor (+ valor 1)))
(lambda ()
(set! valor (- valor 1))))))
(lambda ()
(set! valor
(+ valor 1)))
Outra chamada a faz-contador retorna um novo contador:
( define-values (g i d)
(g)
0
(i)
(i)
( faz-contador ))
(get-val) ;; para ver que é diferente do anterior
-1
(g)
2
3.6.1 Memoização
3.6.2 Um novo gerador de números aleatóreos
valor 0
Versão Preliminar
O gerador de números aleatóreos que desenvolvemos na Seção 1.3.4 é ligeiramente inconveniente:
para usá-lo, temos que manter em uma variável o valor do último número
aleatóreo gerado e repassá-lo ao gerador cada vez que precisarmos de um novo número.
Podemos nos livrar deste problema construindo o gerador como um fecho. O procedi-
105
[ 27 de outubro de 2010 at 15:47 ]