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

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Arithmetic-geometric-mean/D/arithmetic-geometric-mean.d
View file

@ -1,15 +1,13 @@
import std.stdio, std.math, std.typecons;
import std.stdio, std.math, std.typecons, std.typetuple;
real agm(real a, real g, in int bitPrecision=60) pure nothrow {
real agm(real a, real g, in int bitPrecision=60) pure nothrow @nogc @safe {
do {
//(a, g) = tuple((a + g) / 2.0, sqrt(a * g));
immutable ag = tuple((a + g) / 2.0, sqrt(a * g));
a = ag[0];
g = ag[1];
//{a, g} = {(a + g) / 2.0, sqrt(a * g)};
TypeTuple!(a, g) = tuple((a + g) / 2.0, sqrt(a * g));
} while (feqrel(a, g) < bitPrecision);
return a;
}
void main() {
void main() @safe {
writefln("%0.19f", agm(1, 1 / sqrt(2.0)));
}