Return to sort.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/sort.p, revision 1.1

1.1     ! root        1: program bench1(output);
        !             2:     const size = 300;
        !             3:     var i,j,t: integer; a: array[1..size] of integer;
        !             4: begin for i := 1 to size do a[i] := size + 1 - i;
        !             5:     for i := size-1 downto 1 do
        !             6:        for j := i to size-1 do
        !             7:            if a[j] > a[j+1] then
        !             8:                begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
        !             9:     { for i := 1 to size do writeln(a[i]) }
        !            10: end.

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