aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Map-range/RapidQ/map-range.rapidq Normal file
View file

@ -0,0 +1,11 @@
' Map range
DECLARE FUNCTION MapRange (S#, A1#, A2#, B1#, B2#) AS DOUBLE
FOR I = 0 TO 10
PRINT FORMAT$("%4.1f", I); " maps to ";
PRINT FORMAT$("%4.1f", MapRange(I, 0, 10, -1, 0))
NEXT I
END
FUNCTION MapRange (S#, A1#, A2#, B1#, B2#) AS DOUBLE
MapRange = B1# + (S# - A1#) * (B2# - B1#) / (A2# - A1#)
END FUNCTION