用bash完成八皇后問題(ZT)

zhy2111314

1. #/bin/bash
   
2. canSet() {                                  # 檢查是否可放下皇后的子程序.
   
3.         for ((n=0;n<y;n++)) ;do               
   
4.                 ((P[$n] == x)) && return 1    # 檢查是否同一行, 如果是返回1 false
   
5.                 ((P[$n] == x - n + y )) && return 1 #檢查斜行.
   
6.                 ((P[$n] == x + n - y )) && return 1 #檢查另一方向斜行.
   
7.         done
   
8.         return 0  # 返回成功.
   
9. }
   
10. # init
    
11. y=0   # y 是行,
    
12. for((i=0;i<8;i++)) ;do
    
13.         P[$i]=-1      # p 是座位array , -1是不在棋盤上.
    
14. done
    
15. 
    
16. while (((y<8)&&(y>=0)));do   #如果y>=8, 即找到結果, 如果y<0, 即找不到結果, 退出迴圈
    
17. #       echo ${P[*]};    # 打開這一注解,可看script 運行過程
    
18.         f=0            # 設flag = 0, 用它檢查否一整能不能放下皇后
    
19.         s=${P[$y]}+1     # 每一行皇后放下的列位罝+1
    
20.         for ((x=s;x<8;x++)); do   #其他shell 用 for x in seq $s 7
    
21.                 if canSet ;then   #如果可放下, 則
    
22.                         P[$y]=$x  #記下皇后位罝
    
23.                         ((y++))    # 行位罝加1, 如用其他shell, 用 y=`expr $y + 1`代替
    
24.                         f=1     #設flag=1,即可效皇后.
    
25.                         break    #處理下一個皇后
    
26.                 fi
    
27.         done
    
28.         if [ $f -eq 0 ];then  #  如果整行都不能放下皇后.則
    
29.                 P[$y]=-1   #將皇后由棋盤上拿下.
    
30.                 ((y--))     #行位罝-1.
    
31.         fi
    
32. done
    
33. echo ${P[*]}; 打印數據

复制代码

windrose

只有一个解？

DSL

不知道!

zhy2111314

不止吧

Yuri

Post by zhy2111314
不错

难道你们。。。
都说什么？？？

zhy2111314

Post by genv
难道你们。。。
都说什么？？？

〖问题描述〗
在一个８×８的棋盘里放置８个皇后，要求每个皇后两两之间不相"冲"（在每一横列竖列斜列只有一个皇后）。

呵呵，看看这里：
http://www.linlins.com/linlin3/q8.htm
其实是这样：

著名的八皇后问题。八个皇后在排列时不能同在一行、一列或一条斜
线上。在8!=40320种排列中共有92种解决方案。