Rosetta Code

Polynomial long division: Difference between revisions

Page Discussion

Polynomial long division (view source)

Revision as of 12:10, 17 August 2010

151 bytes removed ,  13 years ago
→‎{{header|D}}
Line 306:
double[] d = mul(0.0, dN - dD) ~ D;
double mult = q[dN - dD] = N[$-1] / d[$-1];
foreachd[] (ref*= elmult; d)
N[] el *-= multd[];
double[] newN;
foreach (i; 0 .. min(N.length, d.length))
newN ~= N[i] - d[i];
N = newN;
dN = degree(N);
}
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/116722"