Price fraction: Difference between revisions
Content added Content deleted
(→{{header|RPL}}: Creation) |
m (→{{header|RPL}}: Section layout) |
||
Line 4,092: | Line 4,092: | ||
0.41 0.46 0.51 0.56 0.61 0.66 0.71 |
0.41 0.46 0.51 0.56 0.61 0.66 0.71 |
||
0.76 0.81 0.86 0.91 0.96 1.01 } |
0.76 0.81 0.86 0.91 0.96 1.01 } |
||
1 WHILE GETI input < REPEAT END |
1 '''WHILE''' GETI input < '''REPEAT END''' |
||
IF DUP 1 == THEN DROP DUP SIZE ELSE 1 - END |
'''IF''' DUP 1 == '''THEN''' DROP DUP SIZE '''ELSE''' 1 - '''END''' |
||
SWAP DROP GET 2 FIX |
SWAP DROP GET 2 FIX |
||
≫ ≫ 'PRICE' STO |
≫ ≫ ''''PRICE'''' STO |
||
| |
| |
||
''' |
'''PRICE''' ''( gross -- net ) '' |
||
list of net values |
list of net values |
||
. |
. |