Price fraction: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: Fix-up some Perl6 -> Raku references) |
|||
Line 2,514: | Line 2,514: | ||
printf(1, "%5.2f %5.2f\n", {i/100,price_fix(i/100)}) |
printf(1, "%5.2f %5.2f\n", {i/100,price_fix(i/100)}) |
||
end for</lang> |
end for</lang> |
||
=={{header|Phixmonti}}== |
|||
<lang Phixmonti>include ..\Utilitys.pmt |
|||
( |
|||
( 0.00 0.06 0.10 ) |
|||
( 0.06 0.11 0.18 ) |
|||
( 0.11 0.16 0.26 ) |
|||
( 0.16 0.21 0.32 ) |
|||
( 0.21 0.26 0.38 ) |
|||
( 0.26 0.31 0.44 ) |
|||
( 0.31 0.36 0.50 ) |
|||
( 0.36 0.41 0.54 ) |
|||
( 0.41 0.46 0.58 ) |
|||
( 0.46 0.51 0.62 ) |
|||
( 0.51 0.56 0.66 ) |
|||
( 0.56 0.61 0.70 ) |
|||
( 0.61 0.66 0.74 ) |
|||
( 0.66 0.71 0.78 ) |
|||
( 0.71 0.76 0.82 ) |
|||
( 0.76 0.81 0.86 ) |
|||
( 0.81 0.86 0.90 ) |
|||
( 0.86 0.91 0.94 ) |
|||
( 0.91 0.96 0.98 ) |
|||
( 0.96 1.01 1.00 ) ) |
|||
def price_fix |
|||
var p |
|||
len for |
|||
get |
|||
3 get swap 1 get swap 2 get nip |
|||
p swap < swap p swap >= |
|||
and if |
|||
exitfor |
|||
else |
|||
drop |
|||
endif |
|||
endfor |
|||
enddef |
|||
( 0.00 1.01 0.01 ) for |
|||
dup print 9 tochar print price_fix print nl |
|||
endfor |
|||
</lang> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |