Problem Statement

Create a function/use an in-built function, to compute the   dot product,   also known as the   scalar product   of two vectors. If possible, make the vectors of arbitrary length.

As an example, compute the dot product of the vectors:

If implementing the dot product of two vectors directly:

Let's start with the solution:

(defun dot-product (v1 v2)
  (let ((res 0))
    (dotimes (i (length v1))
      (setq res (+ (* (elt v1 i) (elt v2 i)) res)))
    res))

(dot-product [1 2 3] [1 2 3]) ;=> 14
(dot-product '(1 2 3) '(1 2 3)) ;=> 14