Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( define seed-random !
( lambda (s)
( set ! aleat s )))
( define next-random !
( lambda ()
( let (( aleat-novo ( linear-congruencial aleat
( set ! aleat aleat-novo )
elat-novo )))
1103515245
12345
( expt 2 32))))
Infelizmente, esta solução depende da criação de uma variável aleat no ambiente
global para armazenar o valor do último número gerado.
Se armazenarmos este código em um arquivo random.scm, um programador poderá
mais tarde carregá-lo e usar nosso código. Se ele tiver uma variável aleat em seu programa,
ela será modificada cada vez que um número aleatóreo for gerado (possivelmente
dando ao programador algumas horas de dor de cabeça).
Além deste problema poderíamos encontrar outro: se usarmos nosso gerador em um
programa com mais de uma thread, elas poderão tentar usar o gerador ao mesmo tempo,
podendo deixá-lo em estado inconsistente, ou gerando o mesmo número para todas. Uma
implementação melhor do gerador de números aleatóreos será apresentada na Seção 3.6.
O ambiente global é útil, no entanto, quando testamos pequenos trechos de programas
Scheme. No resto deste texto restringiremos nosso uso de variáveis globais a pequenos
exemplos e testes.
3.3 listas
Além de lugares denotados diretamente por nomes, podemos também modificar valores
dentro de estruturas.
Versão Preliminar
Os procedimentos set-car! e set-cdr! modificam o car e o cdr de um par.
(define x (cons ’one ’two))
x
[ 27 de outubro de 2010 at 15:47 ]
89