Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( define assoc
( lambda ( chave lista )
( cond (( null lista )
#f)
(( equal ( caar lista ) chave )
( car lista ))
( else
( assoc chave ( cdr lista ))))))
Quando a chave não é encontrada, o valor de retorno é #f:
(assoc "O Iluminado" ’())
#f
Quando a chave é encontrada, assoc retorna o par em que ela estava: podemos por
exemplo usar assoc para descobrir onde está Os Sete Samurais de Kurosawa:
( assoc "Os Sete Samurais "
’((" Era uma vez no oeste " ( estante b3 ))
(" Fahrenheit 451 " ( emprestado " John Doe "))
("Os Sete Samurais " ( estante c4 ))))
(”Os Sete Samurais” (estante c4))
O procedimento assoc existe em Scheme, mas sempre retorna #f quando um item
não está na base de dados. Podemos torná-lo mais flexível, passando como parâmetro o
objeto que deve ser retornado quando um item não é encontrado:
( define assoc / default
( lambda ( chave lista nao-encontrado )
( cond (( null lista )
nao-encontrado )
(( equal ( caar lista ) chave )
( car lista ))
( else
Versão Preliminar
( assoc / default chave
( cdr lista )
nao-encontrado )))))
[ 27 de outubro de 2010 at 15:47 ]
47