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


((bool) ((dup *) (+) map-reduce) (pop 0) if) :sq-sum
 
(1 2 3 4 5) sq-sum puts
() sq-sum puts