2 lines
67 B
Common Lisp
2 lines
67 B
Common Lisp
(defun dot-prod (a b)
|
|
(reduce #'+ (map 'simple-vector #'* a b)))
|
(defun dot-prod (a b)
|
|
(reduce #'+ (map 'simple-vector #'* a b)))
|