9 lines
165 B
Scheme
9 lines
165 B
Scheme
|
(define (matrix-multiply matrix1 matrix2)
|
||
|
|
(map
|
||
|
|
(lambda (row)
|
||
|
|
(apply map
|
||
|
|
(lambda column
|
||
|
|
(apply + (map * row column)))
|
||
|
|
matrix2))
|
||
|
|
matrix1))
|