Time for an 2014 update…

Task/Map-range/AWK/map-range.awk

@@ -0,0 +1,14 @@
+# syntax: GAWK -f MAP_RANGE.AWK
+BEGIN {
+    a1 = 0
+    a2 = 10
+    b1 = -1
+    b2 = 0
+    for (i=a1; i<=a2; i++) {
+      printf("%g maps to %g\n",i,map_range(a1,a2,b1,b2,i))
+    }
+    exit(0)
+}
+function map_range(a1,a2,b1,b2,num) {
+    return b1 + ((num-a1) * (b2-b1) / (a2-a1))
+}

Task/Map-range/Julia/map-range.julia

@@ -0,0 +1,3 @@
+maprange(s, a, b) = let a1 = minimum(a), a2 = maximum(a), b1 = minimum(b), b2 = maximum(b)
+    b1 + (s-a1) * (b2-b1) / (a2-a1)
+end

Task/Map-range/REXX/map-range-4.rexx

@@ -0,0 +1,11 @@
+/*REXX program maps a number from one range to another range.           */
+/* 31.10.2013 Walter Pachl
+/*                  'translated' from version 1 without using Procedure */
+  do j=0  to 10
+    say right(j,3)   ' maps to '   mapRange(0,10,-1,0,j)
+    end
+exit                                   /*stick a fork in it, we're done.*/
+
+/*──────────────────────────────────MAPRANGE subroutine─────────────────*/
+mapRange: return arg(3)+(arg(5)-arg(1))*(arg(4)-arg(3))/(arg(2)-arg(1))
+/* Arguments are arg a1,a2,b1,b2,x */