2 lines
76 B
Text
2 lines
76 B
Text
(defun dot-product (a b)
|
|
(lists:foldl #'+/2 0 (lists:zipwith #'*/2 a b)))
|
(defun dot-product (a b)
|
|
(lists:foldl #'+/2 0 (lists:zipwith #'*/2 a b)))
|