Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( enqueue ! 2 q)
( enqueue ! #f q)
( enqueue ! 3.5 q)
( enqueue ! 4 q)
( find-in-queue q boolean )
(#f 3.5 4 5.1 6)
(find-in-queue q char)
#f
(FIXME: no R 7 RS o procedimento interno find não será mais necessário, e poderemos
usar member com um parâmetro adicional)
Para extrair um elemento da fila, precisamos verificar se a lista tem pelo menos dois
elementos. Se tiver, seguimos procurando o elemento, e quando ele estiver à frente do
elemento atual, mudamos o cdr do elemento atual para o cdr do elemento que queremos
remover.
( define extract-from-queue !
( lambda (q pred )
( define find-and-remove !
( lambda ( queue pred )
( cond (( < ( length queue ) 2)
#f)
(( pred ( cadr queue ))
( let (( result ( cadr queue )))
( else
( set-cdr ! queue ( cddr queue ))
( list result )))
( find-and-remove ! ( cdr queue ) pred )))))
(if (> length ( car q) 1)
( find-and-remove ! ( car q) pred )
#f )))
O procedimento find-and-remove! não pode remover o único elemento de uma
Versão Preliminar
lista unitária, porque não basta que alteremos o car ou o cdr da lista: seria necessário
modificar as referências a esta lista para que apontem para a lista vazia; no entanto, o
[ 27 de outubro de 2010 at 15:47 ]
95