RosettaCodeData/Task/Map-range/Ring/map-range.ring
2018-06-22 20:57:24 +00:00

16 lines
316 B
Text

# Project : Map range
# Date : 2017/09/20
# Author : Gal Zsolt (~ CalmoSoft ~)
# Email : <calmosoft@gmail.com>
decimals(1)
al = 0
ah = 10
bl = -1
bh = 0
for n = 0 to 10
see "" + n + " maps to " + maprange(al, bl, n) + nl
next
func maprange(al, bl, s)
return bl + (s - al) * (bh - bl) / (ah - al)