Left factorials: Difference between revisions
m
→{{header|RPL}}: typos
(add RPL) |
m (→{{header|RPL}}: typos) |
||
Line 3,242:
=={{header|RPL}}==
For small values of n,
≪ '''IF''' DUP '''THEN''' 0 1 ROT 1 - '''FOR''' k k FACT + '''NEXT END''' ≫ ‘<span style="color:blue">LFACT</span>’ STO
Line 3,249:
'''Output:'''
1: { 0 1 2 4 10 34 154 874 5914 46234 409114 }
For 20 through 110 (inclusive) by tens, we need a kind of BigInt library if using a RPL version
Calculation is optimized by using the recursive formula: <code>!(n+1) = !n * n + 1</code>
≪ "1" SWAP
'''WHILE''' DUP 1 > '''REPEAT'''
1 - DUP →STR ROT <span style="color:blue">
'''END''' DROP
≫ ‘<span style="color:blue">LFACTbig</span>’ STO
| |||