Return to gordon.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/gordon.p, revision 1.1.1.1

1.1       root        1: program ffunc( output );
                      2:     type
                      3:        comparisons = ( less , equal , greater );
                      4:     function insert(
                      5:            function comparitor( this , that : integer ) : comparisons;
                      6:            here , there : integer ) : boolean;
                      7:        function equality : boolean;
                      8:            begin
                      9:                if comparitor( here , there ) = equal then begin
                     10:                    equality := true
                     11:                end else begin
                     12:                    equality := false
                     13:                end
                     14:            end;
                     15:        begin
                     16:            insert := equality;
                     17:        end;
                     18:     function compare( this , that : integer ) : comparisons;
                     19:        begin
                     20:                 if this < that then compare := less
                     21:            else if this = that then compare := equal
                     22:            else compare := greater
                     23:        end;
                     24:     begin
                     25:        writeln( insert( compare , 17 , 23 ) );
                     26:     end.

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