Jensen's Device: Difference between revisions

Output: 5.18737751763962

Or you can take advantage of the fact that elements of the @_ are aliases of the original:

<perl>my $i;

sub sum {

my (undef, $lo, $hi, $term) = @_;

my $temp = 0;

for ($_[0] = $lo; $_[0] <= $hi; $_[0]++) {

$temp += $term->();

}

return $temp;

}

print sum($i, 1, 100, sub { 1 / $i }), "\n";</perl>