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 (sum-of-squares l)
   (fold + 0 (map * l l)))
 
(print (sum-of-squares '(1 2 3 4 5 6 7 8 9 10)))
; ==> 385
 