June 2018 Update

Task/Averages-Root-mean-square/Astro/averages-root-mean-square.astro

@@ -1 +1 @@
-fun rootMeanSq(l): sqrt(mean(l²))
+sqrt(mean(x²))

Task/Averages-Root-mean-square/Elena/averages-root-mean-square.elena

@@ -0,0 +1,16 @@
+import extensions.
+import system'routines.
+import system'math.
+
+extension op
+{
+    rootMeanSquare
+    [
+        ^ (self selectBy(:x)(x * x); summarize(Real new) / self length) sqrt.
+    ]
+}
+
+public program =
+[
+    console printLine(Range new(1, 10); rootMeanSquare)
+].

Task/Averages-Root-mean-square/Shen/averages-root-mean-square.shen

@@ -0,0 +1,26 @@
+(declare scm.sqrt [number --> number])
+
+(tc +)
+
+(define mean
+  { (list number) --> number }
+  Xs -> (/ (sum Xs) (length Xs)))
+
+(define square
+  { number --> number }
+  X -> (* X X))
+
+(define rms
+  { (list number) --> number }
+  Xs -> (scm.sqrt (mean (map (function square) Xs))))
+
+(define iota-h
+  { number --> number --> (list number) }
+  X X -> [X]
+  X Lim -> (cons X (iota-h (+ X 1) Lim)))
+
+(define iota
+  { number --> (list number) }
+  Lim -> (iota-h 1 Lim))
+
+(output "~A~%" (rms (iota 10)))

Task/Averages-Root-mean-square/Sidef/averages-root-mean-square-2.sidef

@@ -0,0 +1 @@
+func rms(a) { a »**» 2 «+» / a.len -> sqrt }

Task/Averages-Root-mean-square/Stata/averages-root-mean-square-1.stata

@@ -0,0 +1,7 @@
+program rms, rclass
+	syntax varname(numeric) [if] [in]
+	tempvar x
+	gen `x'=`varlist'^2 `if' `in'
+	qui sum `x' `if' `in'
+	return scalar rms=sqrt(r(mean))
+end

Task/Averages-Root-mean-square/Stata/averages-root-mean-square-2.stata

@@ -0,0 +1,11 @@
+clear
+set obs 20
+gen x=rnormal()
+
+rms x
+di r(rms)
+1.0394189
+
+rms x if x>0
+di r(rms)
+.7423647