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-Arithmetic-mean/Sather/averages-arithmetic-mean.sa
+++ b/Task/Averages-Arithmetic-mean/Sather/averages-arithmetic-mean.sa
@ -0,0 +1,14 @@
+class VECOPS is
+  mean(v:VEC):FLT is
+    m ::= 0.0;
+    loop m := m + v.aelt!; end;
+    return m / v.dim.flt;
+  end;
+end;
+
+class MAIN is
+  main is
+    v ::= #VEC(|1.0, 5.0, 7.0|);
+    #OUT + VECOPS::mean(v) + "\n";
+  end;
+end;