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 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Map-range/Prolog/map-range.pro Normal file
View file

@ -0,0 +1,10 @@
% map_range(+S, +A1, +A2, +B1, +B2, -R)
map_range(S, A1, A2, B1, B2, R) :-
R is B1 + (S - A1) * (B2 - B1) / (A2 - A1).
% bucle principal
run :-
forall(between(0, 10, I),
( map_range(I, 0, 10, -1, 0, R),
format("~w maps to ~1f~n", [I, R])
)).