Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( define stream-filter
( lambda ( pred s)
( cond (( stream-null (s))
’ empty-stream )
(( pred ( stream-car s))
( stream-cons ( stream-car s)
( stream-filter pred ( stream-cdr s ))))
( else
( stream-filter pred ( stream-cdr s ))))))
Ao contrário de filter, o procedimento stream-filter não percorre a estrutura
inteira aplicando pred e selecionando elementos (se o implementássemos assim ele
nunca terminaria!) O que stream-filter retorna é uma nova stream cujo car é o primeiro
elemento da stream que satisfaça pred (veja o segundo caso do cond) e cujo car é uma
promessa. A computação prometida alié de aplicar novamente stream-filter no resto da
stream original.
( define stream-map
( lambda (f s)
(if ( stream-null (s))
’ empty-stream
( stream-cons (f ( stream-car s))
( stream-map f ( stream-cdr s ))))))
o funcionamento de stream-map é parecido com o de stream-filter: o car é f
aplicado ao car da stream original, e o cdr é a promessa de aplicar f a todos os outros
elementos da stream.
Um procedimento particularmente útil é o que transforma uma stream em lista. Obviamente
não é possível transformar uma stream infinita em lista, mas um procedimento
que tome os n primeiros elementos de uma stream é bastante útil, e sua implementação é
muito simples:
( define stream-take
( lambda (s n)
(if ( positive n)
Versão Preliminar
( cons ( stream-car s)
( stream-take ( stream-cdr s)
(- n 1)))
’())))
222
[ 27 de outubro de 2010 at 15:47 ]