Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
presente, a operação é feita usando duas portas padrão: “entrada corrente” e “saída corrente”.
Estas duas portas podem ser obtidas pelos procedimentos current-input-port e
current-output-port.
O procedimento display envia um objeto Scheme para uma porta, de maneira que
pareça legível para humanos, mas não de forma que possa ser lido novamente pelo
ambiente Scheme. Por exemplo, strings são mostradas sem aspas (e portanto da mesma
forma que símbolos).
( let (( out ( open-output-file " saida . txt " )))
( display " Seu nú mero da sorte é: " out )
( display ( next-random 322) out )
( newline out )
( display " Tenha um bom dia !" out )
( close-output-port out ))
O procedimento newline envia para uma porta uma quebra de linha. O trecho acima
gravará, no arquivo saida.txt:
Seu número da sorte é: 2041087718
Tenha um bom dia!
Para escrever apenas um caracter em uma porta de saída, usamos write-char.
O procedimento read-char lê um caracter de uma porta de entrada. Já peek-char
retorna o próximo caracter, mas não o consome.
O procedimento eof-object é usado para verificar se um objeto lido de uma porta
representa o fim de um arquivo.
Os procedimentos read e write são usados para ler e escrever formas Scheme em
sua representação externa. Uma forma escrita por write pode ser lida por read: strings
são escritas com aspas, caracteres são escritos com \#, etc. Para ilustrar a diferença entre
display e write, podemos simplesmente reescrever o trecho anterior usando write:
( let (( out ( open-output-file " saida . txt " )))
( write " Seu nú mero da sorte é: " out )
Versão Preliminar
( write ( next-random 321) out )
( write #\ newline out )
( write " Tenha um bom dia !" out )
( close-output-port out ))
62
[ 27 de outubro de 2010 at 15:47 ]