4 lines
123 B
Text
4 lines
123 B
Text
mapRange[s, a1, a2, b1, b2] := b1 + (s-a1)(b2-b1)/(a2-a1)
|
|
|
|
for a = 0 to 10
|
|
println["$a\t" + mapRange[a, 0, 10, -1, 0]]
|