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


go =>
  List = 1..666,
  println(sum_squares(List)),
  println(sum_squares([])),
  nl.
 
sum_squares([]) = 0.
sum_squares(List) = sum([I*I : I in List]).