Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
13.3.4.2 Clonagem de processos
13.3.5 Exemplos
13.3.5.1 Quicksort em Termite Scheme
Os procedimentos partition!!, randomized-partition!! e quicksort-sub! são a tradução
do Quicksort (como apresentado no livro de Thomas Cormen e outros [20]) para Scheme.
O procedimento partition!! particiona um vetor para o Quicksort: vec é o vetor, p é
o elemento inicial e r é o elemento final. Somente o subvetor [p..r] será particionado.
O valor retornado pelo procedimento é a posição do pivô (que antes da chamada do
procedimento era o primeiro elemento).
( define partition !!
( lambda ( vec p r)
( let ((x ( vector-ref vec r))
(i (- p 1)))
(do ((j p (+ j 1)))
((= j r))
( cond ((