Thomas Fischbacher <[EMAIL PROTECTED]> writes:
> > 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)))))
Nicolas.
