RosettaCodeData/Task/Map-range/Oforth/map-range.fth

4 lines
108 B
Forth

: mapRange(p1, p2, s)
s p1 first - p2 second p2 first - * p1 second p1 first - asFloat /
p2 first + ;