Return to pow10.c CVS log

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

Annotation of researchv9/libc/math/pow10.c, revision 1.1.1.1

1.1       root        1: static double  p[10] =
                      2: {
                      3:        1.0e0,
                      4:        1.0e1,
                      5:        1.0e2,
                      6:        1.0e3,
                      7:        1.0e4,
                      8:        1.0e5,
                      9:        1.0e6,
                     10:        1.0e7,
                     11:        1.0e8,
                     12:        1.0e9,
                     13: };
                     14: 
                     15: double
                     16: pow10(e)
                     17: {
                     18:        int i;
                     19: 
                     20:        if(e < 0)
                     21:                return 1 / pow10(-e);
                     22:        if(e >= 10) {
                     23:                i = e/2;
                     24:                return pow10(i) * pow10(e-i);
                     25:        }
                     26:        return p[e];
                     27: }

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