6 lines
108 B
Clojure
6 lines
108 B
Clojure
|
(defn rms [xs]
|
||
|
|
(Math/sqrt (/ (reduce + (map #(* % %) xs))
|
||
|
|
(count xs))))
|
||
|
|
|
||
|
|
(println (rms (range 1 11)))
|