2 lines
87 B
Common Lisp
2 lines
87 B
Common Lisp
(defun dot-product (a b)
|
|
(apply #'+ (mapcar #'* (coerce a 'list) (coerce b 'list))))
|