檢查乙個如下的6 x 6的跳棋棋盤，有六個棋子被放置在棋盤上，使得每行、每列有且只有乙個，每條對角線(包括兩條主對角線的所有平行線)上至多有乙個棋子。
上面的布局可以用序列2 4 6 1 3 5來描述，第i個數字表示在第i行的相應位置有乙個棋子，如下：
行號 1 2 3 4 5 6
列號 2 4 6 1 3 5
這只是跳棋放置的乙個解。請編乙個程式找出所有跳棋放置的解。並把它們以上面的序列方法輸出。解按字典順序排列。請輸出前3個解。最後一行是解的總個數。
//以下的話來自usaco官方，不代表洛谷觀點
特別注意: 對於更大的n(棋盤大小n x n)你的程式應當改進得更有效。不要事先計算出所有解然後只輸出(或是找到乙個關於它的公式），這是作弊。如果你堅持作弊，那麼你登陸usaco training的帳號刪除並且不能參加usaco的任何競賽。我警告過你了！
輸入格式：
乙個數字n (6 <= n <= 13) 表示棋盤是n x n大小的。
輸出格式：
前三行為前三個解，每個解的兩個數字之間用乙個空格隔開。第四行只有乙個數字，表示解的總數。
分析：搜尋，b[i]標記列上是否有皇后，p[i-j]和q[i+j]標記對角線上是否有皇后。
**
vara:array[0..100] of longint;
b,p,q:array[-100..100] of boolean;
n,ans:longint;
procedure print;
vari:longint;
begin
for i:=1 to n do
write(a[i],' ');
writeln;
end;
procedure dfs(dep:longint);
vari,j:longint;
begin
if dep>n then
begin
inc(ans);
if ans<=3 then print;
exit;
end;
for i:=1 to n do
if (not b[i]) and (not p[i-dep]) and (not q[dep+i]) then
begin
b[i]:=true;
p[i-dep]:=true;
q[dep+i]:=true;
a[dep]:=i;
dfs(dep+1);
b[i]:=false;
p[i-dep]:=false;
q[dep+i]:=false;
end;
end;
begin
readln(n);
dfs(1);
writeln(ans);
end.
八皇后 dfs 洛谷P1219
p1219 usaco1.5 八皇后 checker challenge 題意 n n的棋盤，放置n個皇后，使其不會互相攻擊。同行 同列 同對角線會相互攻擊。按字典序輸出前三個，第四行輸出一共有多少種放法。做法 陣列a i 存放第i行的皇后放在哪一列，遞迴列舉全排列。列舉過程中判合法 可行性剪枝 判...
洛谷 P1219 八皇后 DFS
時間限制1.00s 記憶體限制125.00mb 檢查乙個如下的6 x 6的跳棋棋盤，有六個棋子被放置在棋盤上，使得每行 每列有且只有乙個，每條對角線 包括兩條主對角線的所有平行線 上至多有乙個棋子。上面的布局可以用序列2 4 6 1 3 5來描述，第i個數字表示在第i行的相應位置有乙個棋子，如下 行...
洛谷 P1219 八皇后
題目描述 檢查乙個如下的6 x 6的跳棋棋盤，有六個棋子被放置在棋盤上，使得每行 每列有且只有乙個，每條對角線 包括兩條主對角線的所有平行線 上至多有乙個棋子。上面的布局可以用序列2 4 6 1 3 5來描述，第i個數字表示在第i行的相應位置有乙個棋子，如下 行號 1 2 3 4 5 6 列號 2 ...