老师给我出了个暑期作业：用R语言解决八皇后问题。
八皇后问题：国际象棋棋盘（8×8）上放8个“后”，使8个“后”之间互相不能被进攻。（即：每个“后”所在行、列、两条斜线都没有其它子）
查看网上，大多用C++，没看到用R的。呵呵，看来是不能借鉴了。
第一感觉是，应该不能穷举，否则运行非常慢，在网上看了些介绍，打算用回溯法。
然而水平有限，搞了一天多竟然还没成功写好，总是有很奇怪的bug，唉，怪我对R不熟悉吧。
刚才生气了，干脆来个穷举，看看能运行多久，代码见下，看起来非常笨拙，结果运行2,3秒就完成了。。。还是不了解计算机、不了解R啊。。。
#穷举法
rm(list=ls())
cat(rep("\n", 50))
b1=array(numeric(64),dim=c(8,8))
i=0;j=1:8
for (d1 in j){
D2=setdiff(j,d1)
for (d2 in D2){
D3=setdiff(D2,d2)
for (d3 in D3){
D4=setdiff(D3,d3)
for (d4 in D4){
D5=setdiff(D4,d4)
for (d5 in D5){
D6=setdiff(D5,d5)
for (d6 in D6){
D7=setdiff(D6,d6)
for (d7 in D7){
D8=setdiff(D7,d7)
for (d8 in D8){
if(
(d2-d1==1)|(d3-d1==2)|(d4-d1==3)|(d5-d1==4)|(d6-d1==5)|(d7-d1==6)|(d8-d1==7)|#左上-右下
(d3-d2==1)|(d4-d2==2)|(d5-d2==3)|(d6-d2==4)|(d7-d2==5)|(d8-d2==6)|(d4-d3==1)|
(d5-d3==2)|(d6-d3==3)|(d7-d3==4)|(d8-d3==5)|(d5-d4==1)|(d6-d4==2)|(d7-d4==3)|
(d8-d4==4)|(d6-d5==1)|(d7-d5==2)|(d8-d5==3)|(d7-d6==1)|(d8-d6==2)|(d8-d7==1)|
(d2-d1==-1)|(d3-d1==-2)|(d4-d1==-3)|(d5-d1==-4)|(d6-d1==-5)|(d7-d1==-6)|(d8-d1==-7)|#左下-右上
(d3-d2==-1)|(d4-d2==-2)|(d5-d2==-3)|(d6-d2==-4)|(d7-d2==-5)|(d8-d2==-6)|(d4-d3==-1)|
(d5-d3==-2)|(d6-d3==-3)|(d7-d3==-4)|(d8-d3==-5)|(d5-d4==-1)|(d6-d4==-2)|(d7-d4==-3)|
(d8-d4==-4)|(d6-d5==-1)|(d7-d5==-2)|(d8-d5==-3)|(d7-d6==-1)|(d8-d6==-2)|(d8-d7==-1)
)
{break}
else{i=i+1;print(paste(d1,d2,d3,d4,d5,d6,d7,d8))}
}
}
}
}
}
}
}
}