Data commit

Task/Averages-Arithmetic-mean/Lingo/averages-arithmetic-mean-1.lingo

@@ -0,0 +1,14 @@
+-- v can be (2D) point, (3D) vector or list of integers/floats
+on mean (v)
+    case ilk(v) of
+        #point: cnt = 2
+        #vector: cnt = 3
+        #list: cnt = v.count
+        otherwise: return
+    end case
+    sum = 0
+    repeat with i = 1 to cnt
+        sum = sum + v[i]
+    end repeat
+    return float(sum)/cnt
+end

Task/Averages-Arithmetic-mean/Lingo/averages-arithmetic-mean-2.lingo

@@ -0,0 +1,6 @@
+put mean(point(1, 2.5))
+-- 1.7500
+put mean(vector(1.2, 4.7, 5.6))
+-- 3.8333
+put mean([6,12,18,24,30,36,42,48,54,60,66,72,78])
+-- 42.0000