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


#import nat
 
ssq = sum:-0+ product*iip
 
#cast %n
 
main = ssq <21,12,77,0,94,23,96,93,72,72,79,24,8,50,9,93>