Add all the A tasks

2013-04-10 14:58:50 -07:00 · 2013-04-10 14:58:50 -07:00 · 051504d65b
commit 051504d65b
parent 2dd7375f96
1608 changed files with 18584 additions and 0 deletions
--- a/Task/Averages-Root-mean-square/Sather/averages-root-mean-square.sa
+++ b/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;