6 lines
174 B
Common Lisp
6 lines
174 B
Common Lisp
(defun matrix-multiply (matrix1 matrix2)
|
|
(mapcar
|
|
(lambda (row)
|
|
(apply #'mapcar
|
|
(lambda (&rest column)
|
|
(apply #'+ (mapcar #'* row column))) matrix2)) matrix1))
|