Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
O conteúdo do arquivo saida.txt após a execução deste programa será:
"Seu número da sorte é: "2041087718#\newline"Tenha um bom dia!"
que é a sequência de objetos Scheme que escrevemos, de forma que possam ser lidos
novamente pelo interpretador (uma string, um número, um caracter #\newline e outra
string).
Usamos write, por exemplo, para criar um procedimento save-db que grava em um
arquivo nossa base de dados de filmes.
( define save-db
( lambda (db file-name )
( let (( out ( open-output-file file-name )))
( write db out )
( close-output-port out ))))
Gravaremos nossa base de dados em um arquivo:
( save-db ’(("Dr. Strangelove " ( estante c4 ))
(" Era uma vez no oeste " ( estante b3 ))
(" Fahrenheit 451 " ( emprestado " John Doe "))
("Os Sete Samurais " ( estante c4 )))
" movies . dat ")
O conteúdo de movies.dat será:
(("Dr. Strangelove" (estante c4))
("Era uma vez no oeste" (estante b3))
("Fahrenheit 451" (emprestado "John Doe"))
("Os Sete Samurais" (estante c4)))
O procedimento load-db recupera a base de dados de um arquivo, mas é um pouco
diferente de save-db:
( define load-db
( lambda ( file-name )
Versão Preliminar
( let (( in ( open-input-file file-name )))
( let (( db ( read in )))
( close-input-port in)
db ))))
[ 27 de outubro de 2010 at 15:47 ]
63