八皇后问题

有关国际象棋的问题很多，八皇后问题就是其中相当著名的一个。在8×8的国际象棋棋盘中，放入8个皇后，使它们不互相攻击，共有多少种方法呢？

皇后的攻击范围是同一行、列或者是同一斜行，因此，符合条件的8个皇后必须都不在同一行、同一列或者同一斜行上。

由于每一行中会放入一个皇后，所以可以使用一个序列中的8个元素依次设入每一行中皇后所在的列数。当某一行没有置入皇后时，数组中的相应元素记为0；在新的一行中置入皇后时，如果列数在数组中不存在，就可以保证没有皇后在这一列中。

再来考察斜行的情况：如果一个皇后在m行k列，那么在m+n行，最多只有两个位置和它在同一斜行上，而且这两个位置距离它的横向距离等于纵向距离，也就是说最多只有(m+n,k+n)和(m+n,k-n)这两个位置与这个皇后在同一斜行上。在置入新的皇后时，还需要保证它与已有的皇后都不在同一斜行上。

 这样，只要把每个皇后在每一行的所有情况都检查一遍，就可以知道共有多少种情况满足要求了。

在esProc中，可以通过循环计算来完成，如下图：

	A	B	C	D
1	=[0]*8	>i=1
2	for (i>0)	>A1(i)=A1(i)+1
3		if A1(i)==9	>A1(i)=0,i=i-1	next
4		if i==1	>i=2	next
5		=A1(i)	=A1(to(i-1))
6		if C5.pos(B5)>0		next
7		if C5.pselect(i-#==abs(B5-~))>0		next
8		>i=i+1
9		if i==9	=C9|A1.conj@s()	>i=i-1
10	=C9.len()

其流程图如下图所示：

经过计算，A10中结果如下：

也可以查看C9中更为具体的结果：