Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( lambda (c)
(( car c ))))
( define !
( lambda (c d)
(( cdr c) d )))
Com isto temos uma implementação de canais:
( let ((c ( make-channel )))
( let ((a ( channel-left c))
(b ( channel-right c )))
( par
( lambda ()
( thread-sleep ! 1)
(! a ’ the-message ))
( lambda ()
( thread-sleep ! 2)
( print " Mensagem recebida : " ( b ))))))
13.1.2.3 Escolha
O CSP especifica um operador que determina que um processo aguarde até que um de
muitos eventos ocorra, e que reaja ao primeiro deles.
( let (( dados ( make-channel ))
(al ( make-channel )))
( let (( dados-in ( channel-left dados ))
( dados-out ( channel-right dados ))
( al-in ( channel-left al ))
( al-out ( channel-right al )))
( parallel
( mostra dados-in al-in )
( alarme al-out )
( produz dados-out ))))
Versão Preliminar
( define produz
( lambda ( canal )
( let loop ()
286
[ 27 de outubro de 2010 at 15:47 ]