Integer long division: Difference between revisions
m
→{{header|RPL}}: Added comments for HP-49 version
(added RPL) |
m (→{{header|RPL}}: Added comments for HP-49 version) |
||
Line 527:
« DUP2 /
'''IF''' DUP FP '''THEN'''
IP "." + ROT ROT <span style="color:grey">@ HP49+: add R→I after IP</span>
ABS SWAP ABS OVER MOD 10 * { }
→ quotient n c passed
Line 537:
'''WHILE''' passed c POS NOT '''REPEAT'''
'passed' c STO+
c n / IP + <span style="color:grey">@ HP49+: replace / IP by IQUOT</span>
c n MOD 10 * 'c' STO
'''END'''
| |||