Return to eightqueens.p CVS log

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

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

1.1       root        1: program eightqueens(output);
                      2: const doprint = 1;
                      3: var i : integer;
                      4:     a : array [ 1..8 ] of boolean;
                      5:     b : array [ 2..16] of boolean;
                      6:     c : array [-7..7 ] of boolean;
                      7:     x : array [ 1..8 ] of integer;
                      8:     safe : boolean;
                      9: 
                     10:    procedure print;
                     11:       var k: integer;
                     12:    begin
                     13:        if doprint = 1 then begin
                     14:                write(' ');
                     15:              for k := 1 to 8 do write(x[k]:2);
                     16:              writeln;
                     17:              end
                     18:    end ;
                     19: 
                     20: procedure trycol(j : integer);
                     21:    var i : integer;
                     22: 
                     23:    procedure setqueen;
                     24:    begin a[i] := false; b[i+j] := false; c[i-j] := false;
                     25:    end ;
                     26: 
                     27:    procedure removequeen;
                     28:    begin a[i] := true; b[i+j] := true; c[i-j] := true;
                     29:    end ;
                     30: 
                     31:     begin
                     32:       i := 0;
                     33:       repeat i := i+1; safe := a[i] and b[i+j] and c[i-j];
                     34:          if safe then
                     35:          begin setqueen; x[j] := i;
                     36:             if j < 8 then trycol(j+1) else print;
                     37:             removequeen
                     38:          end
                     39:       until i = 8
                     40: end;
                     41: 
                     42: begin print; for i := 1 to 8 do a[i] := true;
                     43:       for i := 2 to 16 do b[i] := true;
                     44:       for i := -7 to 7 do c[i] := true;
                     45:    trycol(1);
                     46: end.

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