aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Eulers-constant-0.5772.../Picat/eulers-constant-0.5772...-1.picat Normal file
View file

@ -0,0 +1,9 @@
main =>
Gamma = 0.57721566490153286060651209008240,
println(Gamma),
foreach(N in 1..8)
G = e(10**N),
println([n=N,g=G,diff=G-Gamma])
end.
e(N) = [1.0/I : I in 1..N].sum-log(N).

5
Task/Eulers-constant-0.5772.../Picat/eulers-constant-0.5772...-2.picat Normal file
View file

@ -0,0 +1,5 @@
e2(N) = E-log(N) =>
E = 1,
foreach(I in 2..N)
E := E + 1/I
end.

21
Task/Eulers-constant-0.5772.../Picat/eulers-constant-0.5772...-3.picat Normal file
View file

@ -0,0 +1,21 @@
main =>
Gamma = 0.577215664901532860606512090082402,
println(gamma=Gamma),
member(N, 1..23),
G = gamma(N),
println([n=N,g=G,diff=G-Gamma]),
fail,
nl.
gamma(N) = Gamma =>
Gamma = 1/2 - 1/3,
foreach(I in 2..N)
Power = 2**I,
Sign = -1,
Term = 0,
foreach(Denominator in Power..(2*Power-1))
Sign := Sign * -1,
Term := Term + Sign / Denominator
end,
Gamma := Gamma + I*Term
end.