Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( let (( in ( open-input-string in-string )))
( let ((x ( read in )))
( let ((y ( read in )))
( display (+ x y ))))
( close-input-port in ))
300
Podemos abrir uma porta de saída para string com open-output-string. Cada vez
que quisermos a string com os dados já gravados podemos obtê-la com o procedimento
get-output-string.
( let (( out ( open-output-string )))
( display " ----- " out )
( let (( str ( get-output-string out )))
( display str )
(do ((i 0 (+ 1 i )))
((= i 5))
( display i out )
( display " " out )
( display (* i ( expt -1 i)) out )
( newline out ))
( let (( str ( get-output-string out )))
( display str )))
( close-output-port out ))
0 0
1 -1
2 2
3 -3
4 4
Versão Preliminar
Portas de strings podem ser fechadas com close-input-port e close-output-port,
mas get-output-string continuará retornando o conteúdo gravado, mesmo após a porta
ter sido fechada.
No exemplo a seguir os procedimentos show-one-option e show-options enviam
dados para uma porta de saída.
66
[ 27 de outubro de 2010 at 15:47 ]