RosettaCodeData/Task/Averages-Root-mean-square/Clojure/averages-root-mean-square.clj

(defn rms [xs]
  (Math/sqrt (/ (reduce + (map #(* % %) xs))
	   (count xs))))

(println (rms (range 1 11)))
Add all the A tasks 2013-04-10 14:58:50 -07:00			`(defn rms [xs]`
September 2017 Update 2017-09-23 10:01:46 +02:00			`(Math/sqrt (/ (reduce + (map #(* % %) xs))`
Add all the A tasks 2013-04-10 14:58:50 -07:00			`(count xs))))`

			`(println (rms (range 1 11)))`