Data commit

Task/Averages-Root-mean-square/E/averages-root-mean-square-1.e

@@ -0,0 +1,13 @@
+def makeMean(base, include, finish) {
+    return def mean(numbers) {
+        var count := 0
+        var acc := base
+        for x in numbers {
+            acc := include(acc, x)
+            count += 1
+        }
+        return finish(acc, count)
+    }
+}
+
+def RMS := makeMean(0, fn b,x { b+x**2 }, fn acc,n { (acc/n).sqrt() })

Task/Averages-Root-mean-square/E/averages-root-mean-square-2.e

@@ -0,0 +1,2 @@
+? RMS(1..10)
+# value: 6.2048368229954285