Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( newline )))
Estes procedimentos permitem escrever linhas de uma só vez:
( define film-status caadr )
( define film-title car )
( define film-place cadadr )
( define where-is
( lambda ( title db)
( let ((x ( assoc title db )))
( cond (( not x)
( print-line "Não encontrei o filme " title ))
(( eqv ’ emprestado ( film-status x))
( print-line "O filme " title
" est á emprestado para "
( else
( film-place x )))
( print-line "O filme " title
" est á na estante "
( film-place x )))))))
(where-is "Era uma vez no oeste" d)
O filme Era uma vez no oeste está na estante b3
(where-is "Fahrenheit 451" d)
O filme Fahrenheit 451 está emprestado para John Doe
(falta aqui um exemplo uso de display em um arquivo)
Versão Preliminar
2.1.1 Portas de strings
(esta seção está incompleta)
R 7 RS,
SRFI-6
Além de ler e escrever de arquivos, é possível criar portas para ler e escrever em
strings, como se fossem arquivos. O procedimento open-input-string recebe um único
parâmetro (uma string) e retorna uma porta de entrada a partir dessa string:
( define in-string " 100 200 ")
[ 27 de outubro de 2010 at 15:47 ]
65