Faulhaber's formula: Difference between revisions
Content added Content deleted
(Added Java) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: removed 'cached', no performance benefit) |
||
Line 880: | Line 880: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{works with| |
{{works with|Rakudo|2018.04.01}} |
||
<lang perl6> |
<lang perl6>sub bernoulli_number($n) { |
||
sub bernoulli_number($n) is cached { |
|||
return 1/2 if $n == 1; |
return 1/2 if $n == 1; |
||
Line 899: | Line 897: | ||
} |
} |
||
sub binomial($n, $k) |
sub binomial($n, $k) { |
||
$k == 0 || $n == $k ?? 1 !! binomial($n-1, $k-1) + binomial($n-1, $k); |
$k == 0 || $n == $k ?? 1 !! binomial($n-1, $k-1) + binomial($n-1, $k); |
||
} |
} |