Price fraction: Difference between revisions
Content added Content deleted
(→{{header|Ruby}}: add bsearch example) |
No edit summary |
||
Line 3,033: | Line 3,033: | ||
Random value: 0.36528313938816 |
Random value: 0.36528313938816 |
||
Adjusted price: 0.54</pre> |
Adjusted price: 0.54</pre> |
||
=={{header|Maple}}== |
=={{header|Maple}}== |
||
Line 3,132: | Line 3,135: | ||
<syntaxhighlight lang="mercury">adjust(Cents) = array.lookup(price_table, Cents).</syntaxhighlight> |
<syntaxhighlight lang="mercury">adjust(Cents) = array.lookup(price_table, Cents).</syntaxhighlight> |
||
=={{header|M2000 Interpreter}}== |
|||
Derived from BASIC |
|||
<syntaxhighlight lang="m2000 interpreter"> |
|||
Module PriceFraction { |
|||
Currency i |
|||
Print $("0.00"), |
|||
for i=0@ to 1@ step .10@ |
|||
Print i, @PriceFraction(i) |
|||
next |
|||
Print $(""), |
|||
function PriceFraction(price as currency) |
|||
select case price |
|||
case < 0 |
|||
= price |
|||
case < .06 |
|||
= .1 |
|||
case < .11 |
|||
= .18 |
|||
case < .16 |
|||
= .26 |
|||
case < .21 |
|||
= .32 |
|||
case < .26 |
|||
= .38 |
|||
case < .31 |
|||
= .44 |
|||
case < .36 |
|||
= .5 |
|||
case < .41 |
|||
= .54 |
|||
case < .46 |
|||
= .58 |
|||
case < .51 |
|||
= .62 |
|||
case < .56 |
|||
= .66 |
|||
case < .61 |
|||
= .7 |
|||
case < .66 |
|||
= .74 |
|||
case < .71 |
|||
= .78 |
|||
case < .76 |
|||
= .82 |
|||
case < .81 |
|||
= .86 |
|||
case < .86 |
|||
= .9 |
|||
case < .91 |
|||
= .94 |
|||
case < .96 |
|||
= .98 |
|||
case < 1.01 |
|||
= 1! |
|||
case else |
|||
= price |
|||
end select |
|||
end function |
|||
} |
|||
PriceFraction |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
0.00 0.10 |
|||
0.10 0.18 |
|||
0.20 0.32 |
|||
0.30 0.44 |
|||
0.40 0.54 |
|||
0.50 0.62 |
|||
0.60 0.70 |
|||
0.70 0.78 |
|||
0.80 0.86 |
|||
0.90 0.94 |
|||
1.00 1.00 |
|||
</pre> |
|||
=={{header|MUMPS}}== |
=={{header|MUMPS}}== |