Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
Precisamos de um let a mais, porque se a última forma fosse (close-input-port in)
o valor de retorno do procedimento seria o valor que ela retorna. Por isso guardamos o
valor lido por read em uma variável temporária db e a retornamos depois.
With-input-from-file e with-output-to-file executam um procedimento (sem
argumentos) modificando a entrada e saída padrão.
( with-output-to-file " saida . txt "
( lambda ()
( display " Seu nú mero da sorte é: ")
( display ( next-random 111))
( newline )
( display " Tenha um bom dia !" )))
O código abaixo lerá o conteúdo do arquivo saida.txt e o mostrará na porta de saída
corrente.
( with-input-from-file " saida . txt "
( lambda ()
( let loop ((c ( read-char )))
(if ( not ( eof-object c))
( begin ( display c)
( loop ( read-char )))))))
É muitas vezes inconveniente usar diversas chamadas a display e newline para
mostrar muitos objetos. Para isso poderíamos criar então dois procedimentos, print e
print-line, que recebem uma lista de argumentos e usa display para mostrar cada um.
( define print-list
( lambda ( lst )
(if ( not ( null lst ))
( begin ( display ( car lst ))
( print-list ( cdr lst ))))))
Versão Preliminar
( define print
( lambda objetos
( print-list objetos )))
( define print-line
( lambda objetos
( print-list objetos )
64
[ 27 de outubro de 2010 at 15:47 ]