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))}

       }

      }

     }

    }

   }

  }

 }

}

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

巴特西

R语言-八皇后问题

最新文章

热门文章