Return to t11.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/t11.p, revision 1.1.1.1

1.1       root        1: program recursivegcd(output);
                      2: var
                      3:        x, y, n: integer;
                      4: function gcd(m,n: integer): integer;
                      5:        begin
                      6:                if n=0 then
                      7:                        gcd := m else
                      8:                        gcd := gcd(n, m mod n);
                      9:        end;
                     10: procedure try(a, b: integer);
                     11:        begin
                     12:                writeln(a, b, gcd(a, b));
                     13:        end;
                     14: begin
                     15:        try(18, 27);
                     16:        try(312, 2142);
                     17:        try(61, 53);
                     18:        try(98, 868);
                     19: end.

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