Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
(do ((j 0 (+ j 1)))
((= j cols ))
( matrix-set ! mat-new i j
( apply proc ( map ( lambda (x)
4.2 operações com vetores e matrizes
( matrix-ref x i j))
mats )))))))))
Usando as variantes de map e fold para vetores podemos facilmente escrever procedimentos
para realizar operações sobre vetores. Soma e multiplicação por escalar são uma
aplicação trivial de vector-map (ou vector-map!).
( define vector + scalar
( lambda (k v)
( vector-map ( lambda (x) (+ x k)) v )))
( define vector * scalar
( lambda (k v)
( vector-map ( lambda (x) (* x k)) v )))
( define vector + scalar !
( lambda (k v)
( vector-map ! ( lambda (x) (+ x k)) v )))
A soma de vetores é igualmente simples.
( define vector + vector
( lambda (v1 v2)
( vector-map + v1 v2 )))
( define vector + vector !
( lambda (v1 v2)
( vector-map ! + args )))
Versão Preliminar
O produto interno de dois vetores requer um vector-map e um vector-fold.
( define vector * vector
( lambda (v1 v2)
118
[ 27 de outubro de 2010 at 15:47 ]