Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( let (( len ( vector-length ( car vecs ))))
( let (( vec-new ( make-vector len )))
(do ((i 0 (+ i 1)))
((= i len ) vec-new )
( vector-set ! vec-new i
( apply proc ( map ( lambda (x)
( vector-ref x i))
vecs ))))))))
Uma variante vector-map! modifica o primeiro dos vetores, escrevendo nele o resultado
da operação:
( define vector-map !
( lambda ( proc . vecs )
( let (( len ( vector-length ( car vecs ))))
( let (( vec-new ( car vecs )))
(do ((i 0 (+ i 1)))
((= i len ) vec-new )
( vector-set ! vec-new i
( apply proc ( map ( lambda (x)
( vector-ref x i))
vecs ))))))))
O procedimento vector-fold aplica um procedimento a todos os elementos de um
vetor, dois a dois:
( define vector-fold
( lambda ( proc init vec )
(do ((i 0 (+ i 1))
( res init ( proc res ( vector-ref vec i ))))
((= i ( vector-length vec )) res ))))
O corpo do do em vector-fold é vazio: conseguimos escrever o que queríamos
usando apenas as partes de inicialização e atualização das variáveis e o teste.
Versão Preliminar
[ 27 de outubro de 2010 at 15:47 ]
101