for (c = 1 - 1 / (b*b), n = (N-1) / 2; n >= 0; --n) {
for (sum = !n, b = t = j = 1; j <= n && sum != t; b *= (n-j) * (1./j), ++j)
t = sum, sum += (b *= c * (N - n - j) * (1./j));
for (c = 1 - 1 / (b*b), n = (N-1) / 2; n >= 0; --n) {
for (sum = !n, b = t = j = 1; j <= n && sum != t; b *= (n-j) * (1./j), ++j)
t = sum, sum += (b *= c * (N - n - j) * (1./j));