Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
faz-contador
(lambda ()
(let ((valor 0))
(list (lambda ()
valor)
(lambda ()
(set! valor (+ valor 1)))
(lambda ()
(set! valor (- valor 1))))))
Cada vez que faz-contador for chamado, uma nova instância da variável valor
será criada. Os três procedimentos definidos dentro de faz-contador podem acessá-la;
como estes três são retornados, eles podem ser usados fora de faz-contador para usar a
variávelvalor:
( define get-val #f)
( define inc-val #f)
( define dec-val #f)
( let procs ( faz-contador )
( set ! get-val ( list-ref procs 0))
( set ! inc-val ( list-ref procs 1))
( set ! dec-val ( list-ref procs 2)))
(get-val)
0
(inc-val)
(get-val)
1
(dec-val)
(dec-val)
(get-val)
-1
Versão Preliminar
104
[ 27 de outubro de 2010 at 15:47 ]