Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
O procedimento make-circular! procura pelo último elemento da lista modifica seu
cdr para que aponte para o primeiro elemento.
(define a (make-circular! (list 1 2)))
(pair a)
#t
(list a)
#f
(car a)
1
(cadr a)
2
(caddr a)
1
O construtor de listas list, quando chamado duas vezes com os mesmos argumentos,
retorna listas diferentes:
(eqv (list 1) (list 1))
#f
No entanto, o car e caddr de uma lista circular de dois elementos ficam no mesmo
local na memória:
(define x (list 1))
(define y (list 2))
(define circular-2 (make-circular! (list x y)))
(eqv (car circular-2) (caddr circular-2))
#t
3.3.2 Filas
Como outro exemplo de mutação em listas, implementaremos uma fila, representada
Versão Preliminar
internamente como lista. Car e cdr apontarão para o primeiro e último elemento, que
inicialmente são a lista vazia. O início da fila será o final da lista, de forma que Objetos
[ 27 de outubro de 2010 at 15:47 ]
91