| Paste number 52200: | matrix multiply |
| Pasted by: | faxathisia |
| 7 months, 4 weeks ago | |
| #lispcafe | Context in IRC logs | |
| Paste contents: |
| (defun matrix-multiply (a b) (flet ((col (mat i) (mapcar #'(lambda (row) (elt row i)) mat)) (row (mat i) (elt mat i))) (loop for row from 0 below (length a) collect (loop for col from 0 below (length (row b 0)) collect (apply #'+ (mapcar #'* (row a row) (col b col))))))) |
This paste has no annotations.