Anonymous user
Stirling numbers of the second kind: Difference between revisions
→{{header|J}}
m (→{{header|J}}) |
|||
Line 324:
=={{header|J}}==
<pre>
test=: 1 i.~ (0 = *) , =
s2=: 0:`1:`($:&<: + ] * <:@:[ $: ])@.test M.
s2&>table i. 13
+----+--------------------------------------------------------------------+
|s2&>|0 1 2 3 4 5 6 7 8 9 10 11 12|
+----+--------------------------------------------------------------------+
| 0 |0 0 0 0 0 0 0 0 0 0 0 0 0|
| 1 |0 1 0 0 0 0 0 0 0 0 0 0 0|
| 2 |0 1 1 0 0 0 0 0 0 0 0 0 0|
| 3 |0 1 3 1 0 0 0 0 0 0 0 0 0|
| 4 |0 1 7 6 1 0 0 0 0 0 0 0 0|
| 5 |0 1 15 25 10 1 0 0 0 0 0 0 0|
| 6 |0 1 31 90 65 15 1 0 0 0 0 0 0|
| 7 |0 1 63 301 350 140 21 1 0 0 0 0 0|
| 8 |0 1 127 966 1701 1050 266 28 1 0 0 0 0|
| 9 |0 1 255 3025 7770 6951 2646 462 36 1 0 0 0|
|10 |0 1 511 9330 34105 42525 22827 5880 750 45 1 0 0|
|11 |0 1 1023 28501 145750 246730 179487 63987 11880 1155 55 1 0|
|12 |0 1 2047 86526 611501 1379400 1323652 627396 159027 22275 1705 66 1|
+----+--------------------------------------------------------------------+
>./ 100 s2&x:&> i. 101
7769730053598745155212806612787584787397878128370115840974992570102386086289805848025074822404843545178960761551674
</pre>
references:
customized power:
[https://code.jsoftware.com/wiki/Vocabulary/hat#stope]
rising and falling factorial:
[https://www.jsoftware.com/papers/camn.htm]
[https://www.jsoftware.com/books/pdf/calculus.pdf]
=={{header|Java}}==
| |||