Task

Write a program to find the sum of squares of a numeric vector.

The program should work on a zero-length vector (with an answer of   0).



Related task

   Mean


define sumofsquares(values::array) => {
 
	local(sum = 0)
 
	with value in #values do {
		#sum += #value * #value
	}
 
	return #sum
}
 
sumofsquares(array(1,2,3,4,5))