June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Stem-and-leaf-plot/Ring/stem-and-leaf-plot.ring
+++ b/Task/Stem-and-leaf-plot/Ring/stem-and-leaf-plot.ring
@ -0,0 +1,34 @@
+# Project : Stem-and-leaf plot
+# Date    : 2018/03/16
+# Author : Gal Zsolt [~ CalmoSoft ~]
+# Email   : <calmosoft@gmail.com>
+
+data = list(120)
+data = [12, 127,  28,  42,  39, 113,  42,  18,  44, 118,  44,  37, 113, 124,
+            37,  48, 127,  36,  29,  31, 125, 139, 131, 115, 105, 132, 104, 123,
+            35, 113, 122,  42, 117, 119,  58, 109,  23, 105,  63,  27,  44, 105,
+            99,  41, 128, 121, 116, 125,  32,  61,  37, 127,  29, 113, 121,  58,
+            114, 126,  53, 114,  96,  25, 109,   7,  31, 141,  46,  13,  27,  43,
+            117, 116,  27,   7,  68,  40,  31, 115, 124,  42, 128,  52,  71, 118,
+            117,  38,  27, 106,  33, 117, 116, 111,  40, 119,  47, 105,  57, 122,
+            109, 124, 115,  43, 120,  43,  27,  27,  18,  28,  48, 125, 107, 114,
+            34, 133,  45, 120,  30, 127,  31, 116, 146]
+
+leafplot(data, len(data))
+
+func leafplot(x,n)
+       c = n
+       x = sort(x)
+       i = floor(x[1] / 10 ) - 1
+       for j = 1 to n
+            d = floor(x[j] / 10)
+            while d > i
+                     i = i + 1
+                     if j > 0
+                        see nl
+                     ok
+                     see "" + i + " |"
+            end
+            see "" + (x[j] % 10) + " "
+       next
+       see nl