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:

def sq_mul
    0 tolist var c
    len for
        var i
        i get rot i get rot * c swap 0 put var c
    endfor
    c
enddef

def sq_sum
    0 swap
    len for
        get rot + swap
    endfor
    swap
enddef

1 3 -5 3 tolist
4 -2 -1 3 tolist
sq_mul
sq_sum
pstack