R语言-八皇后问题

老师给我出了个暑期作业:用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))}
       }
      }
     }
    }
   }
  }
 }
}

  不过以后还是要尝试一下回溯法的解决方案。

 

posted on 2019-08-24 20:39  青锋剃刀  阅读(413)  评论(0编辑  收藏  举报