1 665c255d 2023-08-04 jrmu (defun dot-product (v w)
2 665c255d 2023-08-04 jrmu   (accumulate #'+  0 (mapcar #'* v w)))
3 665c255d 2023-08-04 jrmu (defun matrix-*-vector (m v)
4 665c255d 2023-08-04 jrmu   (mapcar
5 665c255d 2023-08-04 jrmu    (lambda (row)
6 665c255d 2023-08-04 jrmu      (dot-product row v))
7 665c255d 2023-08-04 jrmu    m))