Return to sequin.p CVS log

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

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

1.1     ! root        1: {$p+}
        !             2: program initable(input,output);
        !             3: type  counter=0..4;
        !             4:       object=1..4;
        !             5:       container=set of object;
        !             6:       row=array[1..4]of 1..4;
        !             7: var   sol:row; i,j,k:integer;
        !             8:       table:array[1..24]of row;
        !             9: 
        !            10:     procedure select(bag:container; sample,drawn:counter);
        !            11:     {Generation of permutations in lexicographic order,
        !            12:     adapted from Grogono, page 134.}
        !            13:     var  ball:object;
        !            14:     begin
        !            15:     if drawn<sample then
        !            16:        for ball:=1 to 4 do
        !            17:            if ball in bag then begin sol[drawn+1]:=ball;
        !            18:                                select(bag-[ball],sample,drawn+1)
        !            19:                                end;
        !            20:     if drawn=sample then begin table[k]:=sol; k:=k+1 end
        !            21:     end; {of select}
        !            22:     
        !            23: begin {of initable}
        !            24:     k:=1;
        !            25:     select([1..4],4,0);
        !            26:     for i := 1 to k-1 do begin
        !            27:        write('table[', i:1, '] = ');
        !            28:        for j := 1 to 4 do
        !            29:            write(table[i][j]);
        !            30:        writeln;
        !            31:        end;
        !            32: end.

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