Matrix multiplication: Difference between revisions

=={{header|Ol}}==

{{trans|Scheme}}

This version works on lists of lists:

<lang ol>

(define (matrix-multiply matrix1 matrix2)

(map

(lambda (row)

(apply map

(lambda column

(apply + (map * row column)))

matrix2))

matrix1))

</lang>

> (matrix-multiply '((1 2) (3 4)) '((-3 -8 3) (-2 1 4)))

((-7 -6 11) (-17 -20 25))