Bell numbers: Difference between revisions
→{{header|Perl 6}}: Added third Perl 6 solution (Sums of rows of Stirling numbers of the second kind)
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:
<pre>(1 1 2 5 15 52 203 877 4140 21147 115975 678570 4213597 27644437 190899322)
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}}==
|