Return to L14.1a CVS log

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

Annotation of 42BSD/usr.lib/learn/C/L14.1a, revision 1.1.1.1

1.1       root        1: #print
                      2: Using the familar "getnum.o" routine
                      3: write a program that reads numbers one per line and determines
                      4: for each if it is prime. Print "prime"
                      5: for a prime number and "composite" for a non-prime number.
                      6: Compile, test, and type "ready".
                      7: #once #create Ref
                      8: 10039
                      9: 17947
                     10: #once #create Ref1
                     11: prime
                     12: composite
                     13: #once cp %s/getnum.o .
                     14: #user
                     15: a.out <Ref >x1
                     16: #cmp x1 Ref1
                     17: #succeed
                     18: /* A slow but sure prime-tester */
                     19: main()
                     20: {
                     21:        int p, i, comp;
                     22: 
                     23:        while ((p = getnum()) >= 0) {
                     24:                comp = 0;
                     25:                for (i = 2; i*i <= p; i++)
                     26:                        if (p%i == 0) {
                     27:                                comp = 1;
                     28:                                break;
                     29:                        }
                     30:                if (comp)
                     31:                        printf("composite\n");
                     32:                else
                     33:                        printf("prime\n");
                     34:        }
                     35: }
                     36: #log
                     37: #next
                     38: 15.1a 10

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