Sparkline in unicode: Difference between revisions
Content added Content deleted
No edit summary |
MaiconSoft (talk | contribs) No edit summary |
||
Line 655: | Line 655: | ||
The output is the same as the Python entry |
The output is the same as the Python entry |
||
(but it only accepts one series of values at a time). |
(but it only accepts one series of values at a time). |
||
=={{header|Delphi}}== |
|||
<lang Delphi> |
|||
program Sparkline_in_unicode; |
|||
{$APPTYPE CONSOLE} |
|||
//Translated from: https://www.arduino.cc/reference/en/language/functions/math/map/ |
|||
function map(x, in_min, in_max, out_min, out_max: Double): Double; |
|||
begin |
|||
Result := ((x - in_min) * (out_max - out_min) / (in_max - in_min) + out_min); |
|||
end; |
|||
procedure Normalize(var Values: TArray<Double>; outMin, outMax: Double); |
|||
var |
|||
i: Integer; |
|||
inMax, inMin, value: Double; |
|||
begin |
|||
if Length(Values) = 0 then |
|||
Exit; |
|||
inMin := Values[0]; |
|||
inMax := Values[0]; |
|||
for value in Values do |
|||
begin |
|||
if value > inMax then |
|||
inMax := value; |
|||
if value < inMin then |
|||
inMin := value; |
|||
end; |
|||
for i := 0 to High(Values) do |
|||
Values[i] := map(Values[i], inMin, inMax, outMin, outMax); |
|||
end; |
|||
function Sparkline(Values: TArray<Double>): UnicodeString; |
|||
var |
|||
value: Double; |
|||
const |
|||
CHARS: UnicodeString = #$2581#$2582#$2583#$2584#$2585#$2586#$2587#$2588; |
|||
begin |
|||
Result := ''; |
|||
Normalize(Values, 1, 8); |
|||
for value in Values do |
|||
Result := Result + CHARS[Trunc(value)]; |
|||
end; |
|||
begin |
|||
writeln(Sparkline([1, 2, 3, 4, 5, 6, 7, 8, 7, 6, 5, 4, 3, 2, 1])); |
|||
writeln(Sparkline([1.5, 0.5, 3.5, 2.5, 5.5, 4.5, 7.5, 6.5])); |
|||
Readln; |
|||
end. |
|||
</lang> |
|||
=={{header|Elixir}}== |
=={{header|Elixir}}== |
||
<lang elixir>defmodule RC do |
<lang elixir>defmodule RC do |