Numerical integration: Difference between revisions
m
→{{header|Perl 6}}: cosmetic fix
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: work-around for exceeded limit on reduction operator) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: cosmetic fix) |
||
Line 3,256:
{{works with|rakudo|2016-11}}
<lang perl6>
sub leftrect(&f, $a, $b, $n) {
my $h = ($b - $a) / $n;
$h * [+] do f($_) for $a, $a+$h ... $b-$h;
| |||