Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( define enqueue !
( lambda (e q)
( let (( queue ( car q))
( last ( cdr q )))
( let (( new-last ( list e )))
(if ( null queue )
( begin ( set-car ! q new-last )
( set-cdr ! q new-last ))
( begin ( set-cdr ! last new-last )
( set-cdr ! q new-last )))))))
Para desempilhar, extraimos a informação do primeiro da lista interna de dados e
depois avançamos a referência para o primeiro.
a
a
primeiro
primeiro
b
último
último
. . .
Versão Preliminar
b
. . .
Se após desenfileirar a lista interna ficar vazia precisamos mudar também o ponteiro
para o último.
( define dequeue !
( lambda (q)
( let (( queue ( car q )))
(if ( null queue )
[ 27 de outubro de 2010 at 15:47 ]
93