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


   sum([],0).
   sum([H|T],S) :- sum(T, S1), S is S1 + (H * H).
