aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Bell-numbers/J/bell-numbers.j Normal file
View file

@ -0,0 +1,20 @@
bell=: ([: +/\ (,~ {:))&.>@:{:
,. bell^:(<5) <1
+--------------+
|1 |
+--------------+
|1 2 |
+--------------+
|2 3 5 |
+--------------+
|5 7 10 15 |
+--------------+
|15 20 27 37 52|
+--------------+
{.&> bell^:(<15) <1
1 1 2 5 15 52 203 877 4140 21147 115975 678570 4213597 27644437 190899322
{:>bell^:49<1x
185724268771078270438257767181908917499221852770