9 lines
212 B
Text
9 lines
212 B
Text
; short version based on 'apply'
|
|
(define (matrix-multiply matrix1 matrix2)
|
|
(map
|
|
(lambda (row)
|
|
(apply map
|
|
(lambda column
|
|
(apply + (map * row column)))
|
|
matrix2))
|
|
matrix1))
|