Averages/Root mean square: Difference between revisions

Content deleted Content added

Inline

@@ Line 122: / Line 122: @@
 <lang AppleScript>-- rootMeanSquare :: [Num] -> Real
 on rootMeanSquare(xs)
-    script plusProduct
+    script plusSquare
         on lambda(a, x)
             a + x * x
@@ Line 128: / Line 128: @@
     end script
-    (foldl(plusProduct, 0, xs) / (length of xs)) ^ (1 / 2)
+    (foldl(plusSquare, 0, xs) / (length of xs)) ^ (1 / 2)
 end rootMeanSquare