Nicolas wrote:
> > > Second, you should use iteration instead of recursion whenever possible > > > > Why, if I may ask so? > > Because you must be an extremely hard-core Schemer to prefer > > (dotimes (row rows) > (declare (fixnum row)) > (labels > ((traverse (sum col) > (declare (fixnum col)) > (if (i< col 0) > (setf (aref result row) sum) > (traverse (+ sum (* (aref arr row col) (aref vec col))) (i1- col))))) > (traverse elem0 (i1- cols)))) > > compared with > > (dotimes (row rows) > (setf (aref result row) > (loop for col below cols > summing (* (aref arr row col) (aref vec col))))) Oh, I *really* do not want to get into that kind of discussion here, since it does not have anything to do with the original problem.
