Price fraction: Difference between revisions
→{{header|REXX}}: added Version 2
(Updated D entry) |
Walterpachl (talk | contribs) (→{{header|REXX}}: added Version 2) |
||
Line 1,917:
=={{header|REXX}}==
===version 1===
<lang rexx>/*REXX program to rescale a (decimal fraction) price (0.99 ──► 1.00).*/
pad=' ' /*for inserting spaces into msg. */
Line 2,053 ⟶ 2,054:
original price ──► 1.00 1.00 ◄── adjusted price
</pre>
===version 2===
<lang rexx>/* REXX ***************************************************************
* Inspired by some other solutions tested with version 1 (above)
* 20.04.2013 Walter Pachl
**********************************************************************/
Do x=0 To 1 By 0.01
old=adjprice(x)
new=adjprice2(x)
If old<>new Then tag='??'
else tag=''
Say x old new tag
End
Exit
adjprice2:
rl='0.10 0.18 0.26 0.32 0.38 0.44 0.50 0.54 0.58 0.62',
'0.66 0.70 0.74 0.78 0.82 0.86 0.90 0.94 0.98 1.00'
Do i=1 To 20
Parse Var rl r.i rl
End
Parse Arg p
i=((100*x-1)%5+1)
Return r.i</lang>
=={{header|Ruby}}==
| |||