Data update

Task/Map-range/DuckDB/map-range.duckdb

@@ -0,0 +1,9 @@
+# x is the value to be mapped.
+# The ranges, a and b, should each be an array defining the
+# left-most and right-most points of the range.
+create or replace function maprange(a, b, x) as
+  b[1] + (((x - a[1]) * (b[2] - b[1]::DOUBLE)) / (a[2] - a[1]::DOUBLE)) ;
+
+# Example 1: a single value
+# (Conversion to floating point will be automatic)
+select maprange([0,10], [-1, 0], 6) as mapped;

Task/Map-range/Pascal-P/map-range.pas

@@ -0,0 +1,14 @@
+program map(output);
+(* Map range *)
+var
+  i: integer;
+
+  function maprange(a1, a2, b1, b2: real; s: real): real;
+  begin
+    maprange := (s - a1) * (b2 - b1) / (a2 - a1) + b1;
+  end;
+
+begin
+  for i := 0 to 10 do
+    writeln(i: 2, ' maps to: ', maprange(0.0, 10.0, -1.0, 0.0, i): 10);
+end.