8 lines
167 B
Text
8 lines
167 B
Text
Map:=proc(a1,a2,b1,b2,s);
|
|
return (b1+((s-a1)*(b2-b1)/(a2-a1)));
|
|
end proc;
|
|
|
|
for i from 0 to 10 do
|
|
printf("%a maps to ",i);
|
|
printf("%a\n",Map(0,10,-1,0,i));
|
|
end do;
|