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


[sumsq [dup *] map 0 [+] fold].
 
[] sumsq
=0
[1 2 3] sumsq