Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( lambda ( valor tolerancia )
( let (( proximo (+ 1 (/ 1 valor ))))
( let (( erro ( abs (- proximo valor ))))
(if (>= erro tolerancia )
( calcula-phi proximo tolerancia )
proximo )))))
O procedimento calcula-phi é recursivo na cauda, e portanto pode ser chamado
recursivamente quantas vezes forem necessárias sem que o consumo de memória aumente.
1.6.3 Processo recursivo em árvore
1.6.3.1 Exemplo: torres de Hanói
1.6.3.2 Exemplo: multiplicação de inteiros
1.6.4 named let
Há situações em que não é conveniente definir um procedimento visível em todo o
programa. É possível criar laços locais da mesma forma que variáveis temporárias. Quando
o primeiro argumento da forma let é uma lista, ela associa valores a variáveis. Quando o
primeiro argumento é um símbolo e o segundo é uma lista, um laço é criado.
Para determinar o valor da maior carta de um jogador no jogo de poquer é necessário
percorrer a lista de cartas lembrando-se do maior valor já visto; podemos usar named let
para isto:
( define maior-carta
( lambda ( hand )
( let repete (( cartas hand ) ( maior 0))
(if ( null ( cartas ))
maior
( let (( valor ( carta- > valor ( pega-nome ( car hand )))))
(if (> valor maior )
Versão Preliminar
( repete ( cdr cartas ) valor )
( repete ( cdr cartas ) maior )))))))
28
[ 27 de outubro de 2010 at 15:47 ]