Data commit

Task/Sparkline-in-unicode/Seed7/sparkline-in-unicode.seed7

@@ -0,0 +1,53 @@
+$ include "seed7_05.s7i";
+  include "scanfile.s7i";
+  include "float.s7i";
+  include "utf8.s7i";
+
+const func array float: readDataLine is func
+  result
+    var array float: data is 0 times 0.0;
+  begin
+    write("Numbers separated by anything: ");
+    IN.bufferChar := getc(IN);
+    skipSpace(IN);
+    while IN.bufferChar <> '\n' do
+      data &:= float parse getNumber(IN);
+      skipSpace(IN);
+      if IN.bufferChar = ',' then
+        IN.bufferChar := getc(IN);
+      end if;
+      skipSpace(IN);
+    end while;
+  end func;
+
+
+const proc: main is func
+  local
+    const string: bars is "▁▂▃▄▅▆▇█";
+    var array float: data is 0 times 0.0;
+    var float: min is 0.0;
+    var float: max is 0.0;
+    var float: number is 0.0;
+    var integer: index is 0;
+  begin
+    OUT := STD_UTF8_OUT;
+    data  := readDataLine;
+    while length(data) >= 1 do
+      min := data[1];
+      max := data[1];
+      for number range data do
+        if number < min then
+          min := number;
+        end if;
+        if number > max then
+          max := number;
+        end if;
+      end for;
+      for number range data do
+        index := succ(min(trunc((number - min) * 8.0 / max), 7));
+        write(bars[index]);
+      end for;
+      writeln;
+      data  := readDataLine;
+    end while;
+  end func;