RosettaCodeData/Task/Map-range/Oforth/map-range.oforth
2016-12-05 23:44:36 +01:00

3 lines
108 B
Text

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