September 2017 Update

Task/Averages-Arithmetic-mean/Aime/averages-arithmetic-mean.aime

@@ -0,0 +1,21 @@
+real
+mean(list l)
+{
+    integer i;
+    real sum, x;
+
+    sum = 0;
+    for (i, x in l) {
+        sum += x;
+    }
+
+    return sum / ~l;
+}
+
+integer
+main(void)
+{
+    o_form("%f\n", mean(l_effect(4.5, 7.25, 5r, 5.75)));
+
+    return 0;
+}

Task/Averages-Arithmetic-mean/Astro/averages-arithmetic-mean.astro

@@ -0,0 +1,3 @@
+mean([1, 2, 3])
+mean([1:10])
+mean([])

Task/Averages-Arithmetic-mean/Bc/averages-arithmetic-mean.bc

@@ -0,0 +1,8 @@
+define m(a[], n) {
+    auto i, s
+
+    for (i = 0; i < n; i++) {
+        s += a[i]
+    }
+    return(s / n)
+}

Task/Averages-Arithmetic-mean/Brainf---/averages-arithmetic-mean.bf

@@ -1 +0,0 @@
->,[-<+>>+<],<[->-<]>[-->+<]>.

Task/Averages-Arithmetic-mean/Crystal/averages-arithmetic-mean.crystal

@@ -0,0 +1,4 @@
+# Crystal will return NaN if an empty array is passed
+def mean(arr) : Float64
+  arr.sum / arr.size.to_f
+end

Task/Averages-Arithmetic-mean/Dc/averages-arithmetic-mean-1.dc

@@ -0,0 +1,2 @@
+1 2 3 5 7 zsn1k[+z1<+]ds+xln/p
+3.6

Task/Averages-Arithmetic-mean/Dc/averages-arithmetic-mean-2.dc

@@ -0,0 +1,6 @@
+[[Nada Mean: ]Ppq]sq
+zd0=qsn [stack length = n]sz
+1k [precision can be altered]sz
+[+z1<+]ds+x[Sum: ]Pp
+ln/[Mean: ]Pp
+[Sample size: ]Plnp

Task/Averages-Arithmetic-mean/Dc/averages-arithmetic-mean-3.dc

@@ -0,0 +1,5 @@
+$ dc sample.dc amean.cd
+Sum: 18
+Mean: 3.6
+Sample size: 5
+$

Task/Averages-Arithmetic-mean/Elena/averages-arithmetic-mean.elena

@@ -1,27 +1,25 @@
-#define system.
-#define extensions.
+import extensions.
 
-#class(extension)op
+extension op
 {
-    #method average
+    average
     [
-        #var aSum := Real new.
-        #var aCount := Integer new:0.
+        var aSum := Real new.
+        var aCount := Integer new:0.
 
-        #var anEnumerator := self enumerator.
+        var anEnumerator := self enumerator.
 
-        #loop (anEnumerator next)?
+        while (anEnumerator next)
         [
-            aSum += anEnumerator get.
-            aCount += 1.
+            aSum append(anEnumerator get).
+            aCount append(1).
         ].
 
         ^ aSum / aCount.
     ]
 }
-
-#symbol program =
+program =
 [
-    #var anArray := (1, 2, 3, 4, 5, 6, 7, 8).
-    console writeLine:"Arithmetic mean of {":anArray:"} is ":(anArray average).
+    var anArray := (1, 2, 3, 4, 5, 6, 7, 8).
+    console printLine("Arithmetic mean of {",anArray,"} is ",anArray average); readChar.
 ].

Task/Averages-Arithmetic-mean/Haskell/averages-arithmetic-mean-3.hs

@@ -1,5 +1,19 @@
 {-# LANGUAGE BangPatterns #-}
-import Data.List (foldl')
-mean :: (Real n, Fractional m) => [n] -> m
-mean xs = let (s,l) = foldl' f (0, 0) xs in realToFrac s / l
-  where f (!s,!l) x = (s+x,l+1)
+
+import Data.List (foldl') --'
+
+mean
+  :: (Real n, Fractional m)
+  => [n] -> m
+mean xs =
+  let (s, l) =
+        foldl' --'
+          f
+          (0, 0)
+          xs
+  in realToFrac s / l
+  where
+    f (!s, !l) x = (s + x, l + 1)
+
+main :: IO ()
+main = print $ mean [1 .. 100]

Task/Averages-Arithmetic-mean/Java/averages-arithmetic-mean.java

@@ -1,7 +1,7 @@
-...
-double sum = 0;
-for(double i : nums){
-  sum += i;
+public static double avg(double... arr) {
+    double sum = 0.0;
+    for (double x : arr) {
+        sum += x;
+    }
+    return sum / arr.length;
 }
-System.out.println("The mean is: " + ((nums.length != 0) ? (sum / nums.length) : 0));
-...

Task/Averages-Arithmetic-mean/Kotlin/averages-arithmetic-mean.kotlin

@@ -1,2 +1,4 @@
-val nums = doubleArrayOf(1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0)
-println("average = %f".format(nums.average()))
+fun main(args: Array<String>) {
+    val nums = doubleArrayOf(1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0)
+    println("average = %f".format(nums.average()))
+}

Task/Averages-Arithmetic-mean/Nim/averages-arithmetic-mean.nim

@@ -1,6 +1,6 @@
 import strutils
 
-proc mean(xs): float =
+proc mean(xs: openArray[float]): float =
   for x in xs:
     result += x
   result = result / float(xs.len)
@@ -8,4 +8,4 @@ proc mean(xs): float =
 var v = @[1.0, 2.0, 2.718, 3.0, 3.142]
 for i in 0..5:
   echo "mean of first ", v.len, " = ", formatFloat(mean(v), precision = 0)
-  v.setLen(v.high)
+  if v.len > 0: v.setLen(v.high)

Task/Averages-Arithmetic-mean/OoRexx/averages-arithmetic-mean.rexx

@@ -0,0 +1,21 @@
+call testAverage .array~of(10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
+call testAverage .array~of(10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, .11)
+call testAverage .array~of(10, 20, 30, 40, 50, -100, 4.7, -11e2)
+call testAverage .array~new
+
+::routine testAverage
+  use arg numbers
+  say "numbers =" numbers~toString("l", ", ")
+  say "average =" average(numbers)
+  say
+
+::routine average
+  use arg numbers
+  -- return zero for an empty list
+  if numbers~isempty then return 0
+
+  sum = 0
+  do number over numbers
+      sum += number
+  end
+  return sum/numbers~items

Task/Averages-Arithmetic-mean/Stata/averages-arithmetic-mean-1.stata

@@ -0,0 +1,31 @@
+clear all
+input str20 country population
+Belgium 11311.1
+Bulgaria 7153.8
+"Czech Republic" 10553.8
+Denmark 5707.3
+Germany 82175.7
+Estonia 1315.9
+Ireland 4724.7
+Greece 10783.7
+end
+
+. mean population
+
+Mean estimation                   Number of obs   =          8
+
+--------------------------------------------------------------
+             |       Mean   Std. Err.     [95% Conf. Interval]
+-------------+------------------------------------------------
+  population |   16715.75   9431.077     -5585.203     39016.7
+--------------------------------------------------------------
+
+. tabstat population, statistic(mean)
+    variable |      mean
+-------------+----------
+  population |  16715.75
+------------------------
+
+. quietly summarize population
+. display r(mean)
+16715.75

Task/Averages-Arithmetic-mean/Stata/averages-arithmetic-mean-2.stata

@@ -0,0 +1,6 @@
+mata
+a=11311.1\7153.8\10553.8\5707.3\
+82175.7\1315.9\4724.7\10783.7
+
+mean(a)
+16715.75

Task/Averages-Arithmetic-mean/TypeScript/averages-arithmetic-mean.type

@@ -0,0 +1,15 @@
+function mean(numbersArr)
+{
+    let arrLen = numbersArr.length;
+    if (arrLen > 0) {
+        let sum: number = 0;
+        for (let i of numbersArr) {
+            sum += i;
+        }
+        return sum/arrLen;
+    }
+    else return "Not defined";
+}
+
+alert( mean( [1,2,3,4,5] ) );
+alert( mean( [] ) );

Task/Averages-Arithmetic-mean/Zkl/averages-arithmetic-mean-1.zkl

@@ -0,0 +1,3 @@
+fcn mean(a,b,c,etc){ z:=vm.arglist; z.reduce('+,0.0)/z.len() }
+mean(3,1,4,1,5,9);  //-->3.83333
+mean(); //-->Exception thrown: MathError(NaN (Not a number))

Task/Averages-Arithmetic-mean/Zkl/averages-arithmetic-mean-2.zkl

@@ -0,0 +1,2 @@
+fcn meanV(z){ z.reduce('+,0.0)/z.len() }
+meanV(T(3,1,4,1,5,9)); // --> 3.83333