fixed matrix*, now it works!

This commit is contained in:
Dan Ballard 2011-07-04 13:11:45 -07:00
parent fb87c204b8
commit 1f44333fc0
1 changed files with 2 additions and 3 deletions

View File

@ -57,9 +57,8 @@
(defun rotate* (m v)
(let ((result (make-array 3 :initial-element 0)))
(dotimes (x 3)
(let ((cell (aref v x)))
(dotimes (y 3)
(incf (aref result x) (* cell (aref m x y))))))
(dotimes (y 3)
(incf (aref result x) (* (aref v y) (aref m x y)))))
result))