RosettaCodeData/Task/Averages-Root-mean-square/Scheme/averages-root-mean-square.scm
2024-10-16 18:07:41 -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))