RosettaCodeData/Task/Map-range/Oforth/map-range.fth
2023-07-01 13:44:08 -04:00

3 lines
108 B
Forth

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