/C++/C++c

C++c

program eightqueen1(output);
 
var i : integer; q : boolean;
    a : array[ 1 ..  8] of boolean;
    b : array[ 2 .. 16] of boolean;
    c : array[−7 ..  7] of boolean;
    x : array[ 1 ..  8] of integer;
 
procedure try( i : integer; var q : boolean);
    var j : integer;
    begin 
    j := 0;
    repeat 
        j := j + 1; 
        q := false;
        if a[ j] and b[ i + j] and c[ i − j] then
            begin 
            x[ i    ] := j;
            a[     j] := false; 
            b[ i + j] := false; 
            c[ i − j] := false;
            if i < 8 then
                begin
                try( i + 1, q);
                if not q then
                    begin 
                    a[     j] := true; 
                    b[ i + j] := true; 
                    c[ i − j] := true;
                    end
                end 
            else 
                q := true
            end
    until q or (j = 8);
    end;
 
begin
for i :=  1 to  8 do a[ i] := true;
for i :=  2 to 16 do b[ i] := true;
for i := −7 to  7 do c[ i] := true;
try( 1, q);
if q then
    for i := 1 to 8 do write( x[ i]:4);
writeln
end.

Source: en.wikipedia.org

Similar codes

0 vote290 views1 answer
Initialize many variablles c++
C++
-1 vote289 views1 answer
2927260.eps 2927262.jpg 2927263.ai License free.txt License premium.txt
C++
0 vote295 views1 answer
Bit masking tricks
C++
0 vote255 views1 answer
Get data from a content editable div
C++
0 vote307 views1 answer
Memset array bool
C++
0 vote304 views1 answer
Assoc-right antlr
C++
1 vote300 views2 answers
Substring function in c++
C++
12 votes287 views2 answers
Copy constructor c++ syntax
C++
1 vote297 views3 answers
('Failed to import pydot. You must `pip install pydot` and install graphviz (https://graphviz.gitlab.io/download/), ', 'for `pydotprint` to work.')
C++
0 vote299 views1 answer
Vector of vectors of pairs c++
C++