随笔 - 32  文章 - 0  评论 - 13  阅读 - 11万

R语言-八皇后问题

老师给我出了个暑期作业:用R语言解决八皇后问题。

八皇后问题:国际象棋棋盘(8×8)上放8个“后”,使8个“后”之间互相不能被进攻。(即:每个“后”所在行、列、两条斜线都没有其它子)

查看网上,大多用C++,没看到用R的。呵呵,看来是不能借鉴了。

第一感觉是,应该不能穷举,否则运行非常慢,在网上看了些介绍,打算用回溯法。

然而水平有限,搞了一天多竟然还没成功写好,总是有很奇怪的bug,唉,怪我对R不熟悉吧。

刚才生气了,干脆来个穷举,看看能运行多久,代码见下,看起来非常笨拙,结果运行2,3秒就完成了。。。还是不了解计算机、不了解R啊。。。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#穷举法
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   青锋剃刀  阅读(421)  评论(0编辑  收藏  举报
编辑推荐:
· DeepSeek 解答了困扰我五年的技术问题
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· 用 C# 插值字符串处理器写一个 sscanf
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
阅读排行:
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· DeepSeek 解答了困扰我五年的技术问题。时代确实变了!
· 本地部署DeepSeek后,没有好看的交互界面怎么行!
· 趁着过年的时候手搓了一个低代码框架
· 推荐一个DeepSeek 大模型的免费 API 项目!兼容OpenAI接口!
< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8

点击右上角即可分享
微信分享提示