Anonymous user
Price fraction: Difference between revisions
→{{header|Euphoria}}: Euphoria example added
(Improve Seed7 example) |
(→{{header|Euphoria}}: Euphoria example added) |
||
Line 544:
priceFraction(N) when N < 0.96 -> 0.98;
priceFraction(N) -> 1.00.</lang>
=={{header|Euphoria}}==
{{trans|C}}
<lang euphoria>constant table = {
{0.06, 0.10}, {0.11, 0.18}, {0.16, 0.26}, {0.21, 0.32},
{0.26, 0.38}, {0.31, 0.44}, {0.36, 0.50}, {0.41, 0.54},
{0.46, 0.58}, {0.51, 0.62}, {0.56, 0.66}, {0.61, 0.70},
{0.66, 0.74}, {0.71, 0.78}, {0.76, 0.82}, {0.81, 0.86},
{0.86, 0.90}, {0.91, 0.94}, {0.96, 0.98}, {1.01, 1.00}
}
function price_fix(atom x)
for i = 1 to length(table) do
if x < table[i][1] then
return table[i][2]
end if
end for
return -1
end function
for i = 0 to 99 do
printf(1, "%.2f %.2f\n", { i/100, price_fix(i/100) })
end for</lang>
=={{header|Fantom}}==
| |||