Price fraction: Difference between revisions

m
→‎{{header|RPL}}: Section layout
m (→‎{{header|RPL}}: Section layout)
Line 4,092:
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 }
1 '''WHILE''' GETI input < '''REPEAT END'''
'''IF''' DUP 1 == '''THEN''' DROP DUP SIZE '''ELSE''' 1 - '''END'''
SWAP DROP GET 2 FIX
≫ ≫ ''''PRICE'''' STO
|
'''PRICEqPRICE''' ''( gross -- net ) ''
list of net values
.
1,150

edits