RosettaCodeData/Task/Averages-Root-mean-square/Scheme/averages-root-mean-square.ss
2023-07-01 13:44:08 -04: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))