Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
O procedimento maior-carta é recursivo na cauda, embora para verificar a maior de
cinco cartas isto seja de pouca importância.
A forma geral do named let é
( let nome ( ( var1 val1 )
( var2 val2 )
... )
...
( nome prox-val1 prox-val2 ...))
Para obter um número aleatóreo entre 0 e k, calculamos o número m = k/(2 3 2) e
geramos números até conseguir um r menor que m; então podemos usar r/m.
( define next-integer-random
( lambda (x n)
( let ((m (/ ( expt 2 32 n ))))
( let again ((r ( next-random x )))
(if (> r m)
( again ((r ( next-random r ))))
( floor (/ r m )))))))
(Falta consertar algo aqui: precisamos do r para passar ao gerador na próxima
chamada)
1.6.5 letrec
A forma especial letrec funciona da mesma maneira que a forma let, exceto que as
definições dentro de um letrec podem fazer referência ao nome sendo defnido.
Versão Preliminar
O código a seguir é uma primeira tentativa de criar um procedimento list-ref, que
retorna o n-ésimo elemento de uma lista.
( define list-ref-1
( lambda ( lst n)
( cond (( not ( and ( list lst )
( integer n )))
( error " list-ref : need a list and an iteger "))
(( negative n)
( error "n < 0"))
[ 27 de outubro de 2010 at 15:47 ]
29