10 lines
212 B
Text
10 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))
|