Return to L37.1a CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / learn / C

Annotation of 43BSD/usr.lib/learn/C/L37.1a, revision 1.1

1.1     ! root        1: #print
        !             2: Let's try a recursive function.  Write a subroutine
        !             3:     power(x,n)
        !             4: which computes x to the power n by the following
        !             5: algorithm:
        !             6:  1. if n is zero return 1.
        !             7:  2. if n is odd return x*power(x,n-1).
        !             8:  3. if n is even return the square of
        !             9:     power(x,n/2).
        !            10: You may assume than x and n are integers, n>=0.
        !            11: If n is negative return 0 for an answer.
        !            12: Put your routine on a file "power.c".  Compile
        !            13: it and test it; then type "ready".
        !            14: #once #create tzaqc.c
        !            15: main()
        !            16: {
        !            17: if (power(-1,-1) != 0) 
        !            18:                return(1);
        !            19:        if (power(-3,2) != 9) 
        !            20:                return(1);
        !            21:        if (power(2,12) != 4096) 
        !            22:                return(1);
        !            23:        if (power(3,5) !=  243) 
        !            24:                return(1);
        !            25:        if (power(-5, 5) != -3125) 
        !            26:                return(1);
        !            27:        if (power(7,3) != 343) 
        !            28:                return(1);
        !            29:        if (power(7,4) != 2401) 
        !            30:                return(1);
        !            31:        if (power(3,7) != 2187) 
        !            32:                return(1);
        !            33:        if (power(2,10) != 1024) 
        !            34:                return(1);
        !            35:        return(0);
        !            36: }
        !            37: #user
        !            38: cc tzaqc.c power.o
        !            39: a.out
        !            40: #succeed
        !            41: /*  a possible solution */
        !            42: power(x, n)
        !            43: {
        !            44:        int k;
        !            45: 
        !            46:        if (n < 0)
        !            47:                return(0);
        !            48:        if (n == 0)
        !            49:                return(1);
        !            50:        if (n%2 == 1)
        !            51:                return(x * power(x, n-1));
        !            52:        k = power(x, n/2);
        !            53:        return(k*k);
        !            54: }
        !            55: #log
        !            56: #next
        !            57: 40.1a 10

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