Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
(- ( vector-length vec ) 1)
( self ))
( recv ( msg ( where ( eqv msg ( self )))))))
( let ((v ( make-vector-iota 6)))
( newline )
( print "após iota : " v)
( newline )
( vector-shuffle ! v)
( print "após suffle !: " v)
( newline )
( let ((w ( vector-copy v )))
( quicksort ! w)
( quicksort-par ! v)
( print "w após quicksort !: " w)
( newline )
( print "v após quicksort-par !: " v)
( newline )))
após iota: 012345
após suffle!: 421035
w após quicksort!: 012345
v após quicksort-par!: 012345
Esta implementação do Quicksort concorrente só funciona quando as threads estão na
mesma CPU e compartilhando o vetor (portanto é uma implementação mista do modelo
Actor com memória compartilhada).
exercícios
Ex. 96 — Implemente uma macro parallel, usando o procedimento par, de forma que
seja possível usar livremente parallel e begin, como se faz com PAR e SEQ em occam:
( parallel
( begin
( set ! a 2)
Versão Preliminar
[ 27 de outubro de 2010 at 15:47 ]
305