Bell numbers: Difference between revisions
→{{header|Perl 6}}: Added second Perl 6 solution (Recurrence relation on binomial coefficients)
m (→{{header|REXX}}: simplified some code.) |
(→{{header|Perl 6}}: Added second Perl 6 solution (Recurrence relation on binomial coefficients)) |
||
Line 159:
=={{header|Perl 6}}==
===via Aitken's array===
{{works with|Rakudo|2019.03}}
Line 204 ⟶ 205:
[4140 5017 6097 7432 9089 11155 13744 17007 21147]
[21147 25287 30304 36401 43833 52922 64077 77821 94828 115975]</pre>
===via Recurrence relation===
{{works with|Rakudo|2019.03}}
<lang perl6>sub binomial { [*] ($^n … 0) Z/ 1 .. $^p }
my @bell = 1, -> *@s { [+] @s »*« @s.keys.map: { binomial(@s-1, $_) } } … *;
.say for @bell[^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}}==
| |||