Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( error " trying to dequeue from empty queue ")
( let (( res ( car queue )))
( set-car ! q ( cdr queue ))
(if ( null ( car q))
( set-cdr ! q ’()))
res )))))
Como nossa fila é implementada como uma lista, o procedimento para verificar se a
fila é vazia é trivial:
( define empty-q
( lambda (q)
( null ( car q ))))
Pode ser interessante termos procedimentos para encontrar ou remover um elemento
do meio da fila.
O procedimento find-in-queue funciona de maneira semelhante ao procedimento
member, e retorna a sublista que inicia com o primeiro elemento para o qual pred retorna
#t.
( define find-in-queue
( lambda (q pred )
( define find
( lambda ( queue pred )
( cond (( null queue )
#f)
(( pred ( car queue ))
queue )
( else
( find ( cdr queue ) pred )))))
( find ( car q) pred )))
Versão Preliminar
Quando o elemento não for encontrado o valor #f será retornado; quando for encontrado
teremos uma sublista. Assim podemos usar este procedimento também com listas
que incluem valores booleanos:
( define q ( make-q ))
( begin
( enqueue ! 1 q)
94
[ 27 de outubro de 2010 at 15:47 ]