Data commit

Task/Fivenum/Ring/fivenum.ring

@@ -0,0 +1,42 @@
+rem1 = 0
+rem2 = 0
+rem3 = 0
+rem4 = 0
+rem5 = 0
+fn1 = [15, 6, 42, 41, 7, 36, 49, 40, 39, 47, 43]
+fn2 = [36, 40, 7, 39, 41, 15]
+fn3 = [0.14082834, 0.09748790, 1.73131507, 0.87636009, -1.95059594,
+      0.73438555, -0.03035726, 1.46675970, -0.74621349, -0.72588772,
+      0.63905160, 0.61501527, -0.98983780, -1.00447874, -0.62759469,
+      0.66206163, 1.04312009, -0.10305385, 0.75775634, 0.32566578]
+decimals(1)
+fivenum(fn1) showarray([rem1,rem2,rem3,rem4,rem5])
+fivenum(fn2) showarray([rem1,rem2,rem3,rem4,rem5])
+decimals(8)
+fivenum(fn3) showarray([rem1,rem2,rem3,rem4,rem5])
+
+func median(table,low,high)
+     l = high-low+1
+     m = low + floor(l/2)
+     if l%2 = 1
+         return table[m]
+     ok
+     return (table[m-1]+table[m])/2
+
+func fivenum(table)
+     table = sort(table)
+     low   = len(table)
+     m     = floor(low/2)+low%2
+     rem1  = table[1]
+     rem2  = median(table,1,m)
+     rem3  = median(table,1,low)
+     rem4  = median(table,m+1,low)
+     rem5  = table[low]
+     return [rem1, rem2, rem3, rem4, rem5]
+
+func showarray vect
+     svect = ""
+     for n in vect
+         svect += " " + n + ","
+     next
+     ? "[" + left(svect, len(svect) - 1) + "]"