---

Implement

In Scheme:

• my-vector-dot-product

  (define (my-vector-dot-product vector other-vector)
    (apply + (map * vector other-vector)))