Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
O exemplo a seguir mostra uma implementação de list-reduce usando letrec
para definir uma função recursiva visível apenas internamente. O procedimento interno
really-reduce verifica se a lista tem tamanho um; se tiver, retorna a cabeça da lista e
em caso contrário aplica o procedimento sobre a cabeça da lista e o resto da computação
realizada por really-reduce na cauda da lista.
( define list-reduce
( lambda ( proc default lista )
( letrec (( really-reduce
( lambda ( proc lista )
(if (= 1 ( length lista ))
( car lista )
( proc ( car lista )
( really-reduce proc
( cdr lista )))))))
(if ( null lista )
default
( really-reduce proc lista )))))
(deve entrar uma figura aqui para ilustrar o reduce)
1.6.6 Definições internas
Uma maneira de conseguir o mesmo efeito de um letrec é usar uma forma define
interna:
( define list-reduce
Versão Preliminar
( define really-reduce
( lambda ( proc lista )
(if (= 1 ( length lista ))
( car lista )
( proc ( car lista )
( really-reduce proc
( cdr lista ))))))
(if ( null lista )
default
32
[ 27 de outubro de 2010 at 15:47 ]