Data commit

Task/Averages-Root-mean-square/Sather/averages-root-mean-square.sa

@@ -0,0 +1,16 @@
+class MAIN is
+  -- irrms stands for Integer Ranged RMS
+  irrms(i, f:INT):FLT
+    pre i <= f
+  is
+    sum ::= 0;
+    loop
+      sum := sum + i.upto!(f).pow(2);
+    end;
+    return (sum.flt / (f-i+1).flt).sqrt;
+  end;
+
+  main is
+    #OUT + irrms(1, 10) + "\n";
+  end;
+end;