Return to fact.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

Annotation of researchv10no/cmd/basic/bite/src/fact.c, revision 1.1.1.1

1.1       root        1: 
                      2: /* Copyright Bell Telephone Laboratories Whippany, N.J.
                      3: 
                      4:  *     /////////////////////////////////////
                      5:  *     /////////////////////////////////////
                      6:  *     ////////////// fact.c ///////////////
                      7:  *     /// J. P. Hawkins WH X4610 8C-001 ///
                      8:  *     ///// Tue Apr 21 16:39:20 1981 //////
                      9:  *     /////////////////////////////////////
                     10:  *     /////////////////////////////////////
                     11:  *     @(#) fact.c: V1.2 4/22/81
                     12:  * Factorial function
                     13: 
                     14: */
                     15: 
                     16: #include       "bas.h"
                     17: double
                     18: fact(n)
                     19: double  n;
                     20: {
                     21:         long    l;
                     22:         double  fact();
                     23:         l = n;
                     24:        if(l>33 || l<0L)
                     25:        {
                     26:                error(inst.thing.linno, 56);
                     27:                return(0.0);
                     28:        }
                     29:         if(l == 0 || l == 1)
                     30:                 return(1.0);
                     31:         else
                     32:                 return(l*fact(l-1.0));
                     33: }

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