Data commit

Task/Stem-and-leaf-plot/Seed7/stem-and-leaf-plot.seed7

@@ -0,0 +1,37 @@
+$ include "seed7_05.s7i";
+
+const proc: leafPlot (in var array integer: x) is func
+  local
+    var integer: i is 0;
+    var integer: j is 0;
+    var integer: d is 0;
+  begin
+    x := sort(x);
+    i := x[1] div 10 - 1;
+    for key j range x do
+      d := x[j] div 10;
+      while d > i do
+        if j <> 1 then
+          writeln;
+        end if;
+        incr(i);
+        write(i lpad 3 <& " |");
+      end while;
+      write(" " <& x[j] rem 10);
+    end for;
+    writeln;
+  end func;
+
+const proc: main is func
+  local
+    const array integer: data is [] (
+       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);
+  begin
+    leafPlot(data);
+  end func;