RosettaCodeData/Task/Averages-Root-mean-square/Scheme/averages-root-mean-square.ss
2013-04-10 14:58:50 -07:00

5 lines
117 B
Scheme

(define (rms nums)
(sqrt (/ (apply + (map * nums nums))
(length nums))))
(rms '(1 2 3 4 5 6 7 8 9 10))