RosettaCodeData/Task/Averages-Root-mean-square/Racket/averages-root-mean-square.rkt
2023-07-01 13:44:08 -04:00

3 lines
89 B
Racket

#lang racket
(define (rms nums)
(sqrt (/ (for/sum ([n nums]) (* n n)) (length nums))))