Euler's constant 0.5772...: Difference between revisions
add lambdatalk code
(C++ entry) |
(add lambdatalk code) |
||
Line 871:
<syntaxhighlight lang="julia">display(MathConstants.γ) # γ = 0.5772156649015...
</syntaxhighlight>
=={{header|Lambdatalk}}==
Following the definition with an improvment from Negoi.
<syntaxhighlight lang="scheme">
{def negoi
{lambda {:n}
{let { {:n :n}
{:h {+ {S.map {lambda {:k} {/ 1 :k}} {S.serie 1 :n}}} }
{:a {log {+ :n 0.5 {/ 1 {* 24 :n}}}}} // Negoi, 1997
} {div}-> Hn :h
{div}gamma {- :h :a}
{div}k :n
}}}
-> negoi
{negoi 400}
-> Hn 6.5699296911765055
gamma 0.5772156645765731 with k = 400
(0.57721566457657 target)
</syntaxhighlight>
Following Sweeney
<syntaxhighlight lang="scheme">
{def sweeney
{def sweeney.set!
{lambda {:s :r :k :i}
{A.set! :i {+ {A.get :i :s} {/ :r :k}} :s}
}}
{def sweeney.loop
{lambda {:n :s :r :k}
{if {<= :r 1.e-10}
then gamma = {- {A.get 1 :s} {A.get 0 :s} {log :n}} with k=:k
else {sweeney.loop :n
{sweeney.set! :s {* :r {/ :n :k}} :k {% :k 2}}
{* :r {/ :n :k}}
{+ :k 1} }
}}}
{lambda {:n}
{sweeney.loop :n {A.new 0 :n} :n 2} }}
-> sweeney
{sweeney 21}
-> gamma = 0.577215664563631 with k=76
(0.57721566456363 target)
</syntaxhighlight>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
| |||