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