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


 
templates ssq
  when <[](0)> do 0 !
  otherwise $... -> $*$ -> ..=Sum&{of: :()} !
end ssq
 
[] -> ssq -> !OUT::write // outputs 0
[1..5] -> ssq -> !OUT::write // outputs 55
 