Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
(n ( matrix-cols mat )))
( write n out )
( display #\ space out )
( write m out )
( newline out )
(do ((i 0 (+ 1 i )))
((= i m))
(do ((j 0 (+ 1 j )))
((= j n))
( write ( matrix-ref mat i j) out )
( display #\ space out ))
( newline out )))))
Assim como fizemos com listas, strings e vetores, criaremos procedimentos matrix-map
e matrix-map! para aplicar um procedimento em cada elemento de uma sequência de
matrizes. A implementação destes procedimentos é semelhante à de seus análogos para
vetores.
( define matrix-map
( lambda ( proc . mats )
( let (( cols ( matrix-cols ( car mats )))
( rows ( matrix-rows ( car mats ))))
( let (( mat-new ( make-matrix rows cols )))
(do ((i 0 (+ i 1)))
((= i rows ) mat-new )
(do ((j 0 (+ j 1)))
((= j cols ))
( matrix-set ! mat-new i j
( apply proc ( map ( lambda (x)
( matrix-ref x i j))
mats )))))))))
Versão Preliminar
( define matrix-map !
( lambda ( proc . mats )
( let (( cols ( matrix-cols ( car mats )))
( rows ( matrix-rows ( car mats ))))
( let (( mat-new ( car mats )))
(do ((i 0 (+ i 1)))
((= i rows ) mat-new )
[ 27 de outubro de 2010 at 15:47 ]
117