Bell numbers: Difference between revisions
Content added Content deleted
m (→{{header|F_Sharp|F#}}: Complete required output) |
(→{{header|Perl 6}}: Added third Perl 6 solution (Sums of rows of Stirling numbers of the second kind)) |
||
| Line 224: | Line 224: | ||
<pre>(1 1 2 5 15 52 203 877 4140 21147 115975 678570 4213597 27644437 190899322) |
<pre>(1 1 2 5 15 52 203 877 4140 21147 115975 678570 4213597 27644437 190899322) |
||
10726137154573358400342215518590002633917247281</pre> |
10726137154573358400342215518590002633917247281</pre> |
||
===via Stirling sums=== |
|||
{{works with|Rakudo|2019.03}} |
|||
<lang perl6>my @Stirling_numbers_of_the_second_kind = |
|||
(1,), |
|||
{ (0, |@^last) »+« (|(@^last »*« @^last.keys), 0) } … * |
|||
; |
|||
my @bell = @Stirling_numbers_of_the_second_kind.map: *.sum; |
|||
.say for @bell.head(15), @bell[50 - 1];</lang> |
|||
{{out}} |
|||
<pre>(1 1 2 5 15 52 203 877 4140 21147 115975 678570 4213597 27644437 190899322) |
|||
10726137154573358400342215518590002633917247281 </pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |
||