Riordan numbers: Difference between revisions
m
→{{header|PL/M}}: tweak comments
(Added PL/M) |
m (→{{header|PL/M}}: tweak comments) |
||
Line 437:
CALL MOV$DEC( .TWO$R1, .R1 ); /* TWO$R1 = R1 ... */
CALL ADD$DEC( .TWO$R1, .R1 ); /* * 2 */
CALL MOV$DEC( .THREE$R2, .R2 ); /* THREE$R2 = R2 ...
CALL ADD$DEC( .THREE$R2, .R2 ); /* THREE$R2 += R2 ...
CALL ADD$DEC( .THREE$R2, .R2 ); /* THREE$R2 += R2 ...
CALL ADD$DEC( .TWO$R1, .THREE$R2 ); /* TWO$R2 += THREE$R2 */
CALL MUL$DEC( .TWO$R1, I - 1 ); /* TWO$R2 *= ( I - 1 ) */
| |||