Sum of a series: Difference between revisions

(PascalABC.NET)
 
Line 1,734:
 
=={{header|langur}}==
<syntaxhighlight lang="langur">val .pi = 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214
val pi = 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214
 
writeln "calc.: ", fold (fn{+}, map(fn fn(.x) { :1/.x^2 }, 1..1000))
writeln "known: ", .pi^2/6
</syntaxhighlight>
 
Line 1,747 ⟶ 1,748:
If we set a higher arbitrary maximum for division, we get more digits.
 
<syntaxhighlight lang="langur">val .pi = 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214
val pi = 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214
 
mode divMaxScale = 100
 
writeln "calc.: ", fold (fn{+}, map(fn fn(.x) { :1/.x^2 }, 1..1000))
writeln "known: ", .pi^2/6
</syntaxhighlight>
 
1,007

edits