Return to recur.p CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / pascal / pdx / test

Annotation of 43BSD/ucb/pascal/pdx/test/recur.p, revision 1.1

1.1     ! root        1: program recursion(input, output);
        !             2: var    i : integer;
        !             3: 
        !             4: function fact(n : integer) : integer;
        !             5: begin
        !             6:        if n <= 1 then begin
        !             7:                fact := 1;
        !             8:        end else begin
        !             9:                fact := n * fact(n-1);
        !            10:        end;
        !            11: end;
        !            12: 
        !            13: begin
        !            14:        i := 3;
        !            15:        writeln(i:1, '! = ', fact(i):1);
        !            16: end.

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