Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
;; procedimento, é boa prática dar-lhe algum valor antes:
( define pong #f)
( define ping
( coroutine value resume
( write-line " PING 1")
( resume pong value )
( write-line " PING 2")
( resume pong value )
( write-line " PING 3")
( resume pong value )))
( define pong
( coroutine value resume
( write-line " Pong 1")
( resume ping value )
(ping ’hello)
PING 1
Pong 1
PING 2
Pong 2
PING 3
Pong 3
hello
( write-line " Pong 2")
( resume ping value )
( write-line " Pong 3")
( resume ping value )))
As linhas são mostradas alternadamente pelas duas threads; a última linha é o valor
de retorno de ping. A figura a seguir ilustra a extensão dinâmica das duas co-rotinas.
Versão Preliminar
[ 27 de outubro de 2010 at 15:47 ]
209