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 sumOfSqrs use $lst
   0 $lst each dup * +
 
[ 1 2 3 4] sumOfSqrs "Sum of squares: %d\n" print