Anonymous user
Price fraction: Difference between revisions
Added PicoLisp
(added Forth version) |
(Added PicoLisp) |
||
Line 539:
end;
</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(scl 2)
(de price (Pr)
(format
(cdr
(rank Pr
(quote
(0.00 . 0.10)
(0.06 . 0.18)
(0.11 . 0.26)
(0.16 . 0.32)
(0.21 . 0.38)
(0.26 . 0.44)
(0.31 . 0.50)
(0.36 . 0.54)
(0.41 . 0.58)
(0.46 . 0.62)
(0.51 . 0.66)
(0.56 . 0.70)
(0.61 . 0.74)
(0.66 . 0.78)
(0.71 . 0.82)
(0.76 . 0.86)
(0.81 . 0.90)
(0.86 . 0.94)
(0.91 . 0.98)
(0.96 . 1.00) ) ) )
*Scl ) )
(for N (0.3793 0.4425 0.0746 0.6918 0.2993 0.5486 0.7848 0.9383 0.2292)
(prinl (price N)) )</lang>
Output:
<pre>0.54
0.58
0.18
0.78
0.44
0.66
0.86
0.98
0.38</pre>
=={{header|PureBasic}}==
| |||