Stirling numbers of the first kind: Difference between revisions
Content added Content deleted
m (→{{header|ALGOL 68}}: Adjusted output to avoid line-wrap) |
(added RPL) |
||
Line 1,757: | Line 1,757: | ||
The maximum value (which has 158 decimal digits): |
The maximum value (which has 158 decimal digits): |
||
19710908747055261109287881673376044669240511161402863823515728791076863288440277983854056472903481625299174865860036734731122707870406148096000000000000000000 |
19710908747055261109287881673376044669240511161402863823515728791076863288440277983854056472903481625299174865860036734731122707870406148096000000000000000000 |
||
</pre> |
|||
=={{header|RPL}}== |
|||
« '''IF''' DUP2 AND NOT '''THEN''' == |
|||
'''ELSE''' |
|||
SWAP 1 - DUP ROT |
|||
DUP2 1 - <span style="color:blue">US1</span> 4 ROLLD <span style="color:blue">US1</span> * + |
|||
'''END''' |
|||
» '<span style="color:blue">US1</span>' STO <span style="color:grey">''@ ( n k → unsigned S1(n) )''</span> |
|||
« { 12 12 } 0 CON |
|||
1 12 '''FOR''' n |
|||
1 n '''FOR''' k |
|||
n k 2 →LIST DUP EVAL <span style="color:blue">US1</span> PUT |
|||
'''NEXT NEXT''' |
|||
» '<span style="color:blue">TASK</span>' STO |
|||
{{out}} |
|||
<pre> |
|||
1: [[ 1 0 0 0 0 0 0 0 0 0 0 0 ] |
|||
[ 1 1 0 0 0 0 0 0 0 0 0 0 ] |
|||
[ 2 3 1 0 0 0 0 0 0 0 0 0 ] |
|||
[ 6 11 6 1 0 0 0 0 0 0 0 0 ] |
|||
[ 24 50 35 10 1 0 0 0 0 0 0 0 ] |
|||
[ 120 274 225 85 15 1 0 0 0 0 0 0 ] |
|||
[ 720 1764 1624 735 175 21 1 0 0 0 0 0 ] |
|||
[ 5040 13068 13132 6769 1960 322 28 1 0 0 0 0 ] |
|||
[ 40320 109584 118124 67284 22449 4536 546 36 1 0 0 0 ] |
|||
[ 362880 1026576 1172700 723680 269325 63273 9450 870 45 1 0 0 ] |
|||
[ 3628800 10628640 12753576 8409500 3416930 902055 157773 18150 1320 55 1 0 ] |
|||
[ 39916800 120543840 150917976 105258076 45995730 13339535 2637558 357423 32670 1925 66 1 ]] |
|||
</pre> |
</pre> |
||