Anonymous user
Sum of a series: Difference between revisions
no edit summary
No edit summary |
|||
Line 229:
=={{header|Perl}}==
<perl>my $sum = 0;
$sum += 1 /
print "$sum\n";</perl>
or
<perl>use List::Util qw(reduce);
$sum = reduce { $a + 1 / $b ** 2 } 0, 1..1000;
print "$sum\n";</perl>
=={{header|Pop11}}==
Line 249 ⟶ 252:
=={{header|R}}==
print( sum( 1/seq(1000)^2 ) )
=={{header|Ruby}}==
<ruby>puts (1..1000).inject(0) {|sum, x| sum + 1.0 / x ** 2}</ruby>
=={{header|Scheme}}==
| |||