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

4 lines
108 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
: mapRange(p1, p2, s)
s p1 first - p2 second p2 first - * p1 second p1 first - asFloat /
p2 first + ;