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:

dotp: List number -> List number -> Maybe number
dotp a b =
    if List.length a /= List.length b then
        Nothing
    else
        Just (List.sum <| List.map2 (*) a b)

dotp [1,3,-5] [4,-2,-1])