Return to pow10.c CVS log

Up to [Research Unix] / researchv9 / libc / math

researchv9-SUN3(old)

static	double	p[10] =
{
	1.0e0,
	1.0e1,
	1.0e2,
	1.0e3,
	1.0e4,
	1.0e5,
	1.0e6,
	1.0e7,
	1.0e8,
	1.0e9,
};

double
pow10(e)
{
	int i;

	if(e < 0)
		return 1 / pow10(-e);
	if(e >= 10) {
		i = e/2;
		return pow10(i) * pow10(e-i);
	}
	return p[e];
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.