Euler's constant 0.5772...: Difference between revisions
Added Easylang
imported>Maxima enthusiast No edit summary |
(Added Easylang) |
||
| (3 intermediate revisions by 2 users not shown) | |||
Line 950:
</pre>
=={{header|EasyLang}}==
<syntaxhighlight>
fastfunc gethn n .
i = 1
while i <= n
hn += 1 / i
i += 1
.
return hn
.
e = 2.718281828459045235
n = 10e8
numfmt 9 0
print gethn n - log10 n / log10 e
</syntaxhighlight>
=={{header|FutureBasic}}==
Line 986 ⟶ 1,002:
Compute time: 67.300 ms
</pre>
=={{header|J}}==
Line 1,703 ⟶ 1,718:
{{out}}
<pre>0.5772149198434514</pre>
=={{header|Scala}}==
<syntaxhighlight lang="Scala">
/**
* Using a simple formula derived from Hurwitz zeta function,
* as described on https://en.wikipedia.org/wiki/Euler%27s_constant,
* gives a result accurate to 11 decimal places: 0.57721566490...
*/
object EulerConstant extends App {
println(gamma(1_000_000))
private def gamma(N: Int): Double = {
val sumOverN = (1 to N).map(1.0 / _).sum
sumOverN - Math.log(N) - 1.0 / (2 * N)
}
}
</syntaxhighlight>
{{out}}
<pre>
0.5772156649007153
</pre>
=={{header|Scheme}}==
{{works with|Chez Scheme}}
Line 1,727 ⟶ 1,767:
Euler's gamma constant: 0.5772156649015328
</pre>
=={{header|Sidef}}==
Line 1,911 ⟶ 1,953:
{{libheader|Wren-fmt}}
Note that, whilst internally double arithmetic is carried out to the same precision as C (Wren is written in C), printing doubles is effectively limited to a maximum of 14 decimal places.
<syntaxhighlight lang="
var eps = 1e-6
Line 2,031 ⟶ 2,073:
{{libheader|Wren-gmp}}
The display is limited to 100 digits for all four examples as I couldn't see much point in showing them all.
<syntaxhighlight lang="
var euler = Fn.new { |n, r, s, t|
Line 2,090 ⟶ 2,132:
</pre>
===The easy way (Embedded)===
<syntaxhighlight lang="
var prec = (101/0.30103).round
| |||