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))} } } } } } } } } |
不过以后还是要尝试一下回溯法的解决方案。
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· DeepSeek 解答了困扰我五年的技术问题
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· 用 C# 插值字符串处理器写一个 sscanf
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· DeepSeek 解答了困扰我五年的技术问题。时代确实变了!
· 本地部署DeepSeek后,没有好看的交互界面怎么行!
· 趁着过年的时候手搓了一个低代码框架
· 推荐一个DeepSeek 大模型的免费 API 项目!兼容OpenAI接口!