Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
(one . two)
(set-car! x 1)
x
(1 . two)
(set-cdr! x ’())
x
(1)
A lista vazia, ’(), é uma constante e não é possível modificar seus car e cdr.
Usando set-car! implementamos map!, uma versão de map que modifica a lista
passada como argumento ao invés de criar uma nova lista.
( define map !
( lambda (f lst )
(if ( not ( null lst ))
( begin ( set-car ! lst (f ( car lst )))
( map ! f ( cdr lst ))))))
Procedimentos como map! que alteram estruturas de dados são muitas vezes chamados
de destrutivos.
3.3.1 Listas circulares
É possível construir uma lista em que o cdr de um dos elementos é igual ao primeiro par
da lista:
( define make-circular !
( lambda ( lista )
( let loop ((l lista ))
( cond (( null l)
lista )
(( null ( cdr l))
( set-cdr ! l lista )
Versão Preliminar
lista )
( else
( loop ( cdr l )))))))
90
[ 27 de outubro de 2010 at 15:47 ]