200分求最好算法

northwolves 2004-07-28 11:26:19
16 个长方形 ，12小4大（16进制表示：0-B# 规格：1*2；C-F# 规格：1*3）放入 6*6的正方形内，有多少种放法，列印出来？
如：
001122
334455
667788
99AABB
CCCDDD
EEEFFF
输出：001122，334455，667788，99AABB，CCCDDD，EEEFFF
012345
012345
CCCDDD
EF6677
EF88AB
EF99AB

输出：012345，012345，CCCDDD，EF6677，EF88AB，EF99AB
熟悉华容道算法的朋友自然小菜一碟
...全文
249 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
victorycyz 2004-07-29
  • 打赏
  • 举报
 回复

发现带“.:RNPA:.”标志的都是高手。
northwolves 2004-07-29
  • 打赏
  • 举报
 回复
刺猬，爽！
laisiwei 2004-07-29
  • 打赏
  • 举报
 回复
'递归
Option Explicit
Private fk(5, 5) As Byte
Private Sub Form_Load()
Call pl(0)
End Sub

Private Sub pl(cfx As Byte)

Dim i As Byte
Dim j As Byte
Dim i1 As Byte
Dim j1 As Byte
Dim b As String
Dim fk2(5, 5) As Byte

'用循环扫描长方形起始点全部情况，然后向右和下分别作长方形

For i1 = 0 To 5
For j1 = 0 To 5
fk2(i1, j1) = fk(i1, j1)
Next
Next

For i = 0 To 5
For j = 0 To 5

If cfx = 0 Then
For i1 = 0 To 5
For j1 = 0 To 5
fk2(i1, j1) = 16 '先把方块的初始值设为16
Next
Next
End If

For i1 = 0 To 5
For j1 = 0 To 5
fk(i1, j1) = fk2(i1, j1)
Next
Next
If cfx >= 0 And cfx <= 11 Then '0-B# 规格：1*2
If i + 1 <= 5 Then '向右作长方形
If fk(i, j) = 16 And fk(i + 1, j) = 16 Then
fk(i, j) = cfx
fk(i + 1, j) = cfx
Call pl(cfx + 1)
End If
End If
If j + 1 <= 5 Then '向下作长方形
If fk(i, j) = 16 And fk(i, j + 1) = 16 Then
fk(i, j) = cfx
fk(i, j + 1) = cfx
Call pl(cfx + 1)
End If
End If
Else 'C-F# 规格：1*3
If i + 2 <= 5 Then '向右作长方形
If fk(i, j) = 16 And fk(i + 1, j) = 16 And fk(i + 2, j) = 16 Then
fk(i, j) = cfx
fk(i + 1, j) = cfx
fk(i + 2, j) = cfx
If cfx <> 15 Then
Call pl(cfx + 1)
Else
b = ""
For j1 = 0 To 5
For i1 = 0 To 5
b = b & Hex(fk(i1, j1))
Next
If j1 <> 5 Then b = b & ","
Next
Debug.Print b
End If
End If
End If
If j + 2 <= 5 Then '向下作长方形
If fk(i, j) = 16 And fk(i, j + 1) = 16 And fk(i, j + 2) = 16 Then
fk(i, j) = cfx
fk(i, j + 1) = cfx
fk(i, j + 2) = cfx
If cfx <> 15 Then
Call pl(cfx + 1)
Else
b = ""
For j1 = 0 To 5
For i1 = 0 To 5
b = b & Hex(fk(i1, j1))
Next
If j1 <> 5 Then b = b & ","
Next
Debug.Print b
End If
End If
End If
End If
Next
Next

End Sub
of123 2004-07-29
  • 打赏
  • 举报
 回复
问题可以简化：
长方形有两种：1*2（A）, 1*3（B）。欲放入 6*6 正方形中。A 至多可用 12 个，B 至多可用 4 个。
把大小长方形命令并求其具体位置并没有意义。如果一定要，可在上题解出后，求大小长方形的数学排列。
cqm2099 2004-07-29
  • 打赏
  • 举报
 回复
关注
pandengzhe 2004-07-29
  • 打赏
  • 举报
 回复
关注
northwolves 2004-07-29
  • 打赏
  • 举报
 回复
看来只能递归了，刺猬兄弟，雕兄弟，拜服。好好研究研究。

谢谢大家，结贴！
Geo_Cra 2004-07-29
  • 打赏
  • 举报
 回复
调用方法：
Dim Matrix(0 To 5, 0 To 5) As Long
Recursion Matrix, 1
BlueBeer 2004-07-29
  • 打赏
  • 举报
 回复
哇，算法高手求算法？
thirdapple 2004-07-29
  • 打赏
  • 举报
 回复
加注释版本
Sub Recursion(Matrix() As Long, s As Long) 'Matrix代表矩阵情况，s代表方块Index
Dim SfMatrix(0 To 5, 0 To 5) As Long
Dim i As Long, j As Long
'使用0作为还没使用的标志，打印的时候-1即可。
'因为VB不支持数组的ByVal传递，所以只有这样了。
For i = 0 To 5
For j = 0 To 5
SfMatrix(i, j) = Matrix(i, j)
Next j
Next i
If s <= 12 Then '1*2方块
For i = 0 To 5
For j = 0 To 5
If SfMatrix(i, j) = 0 Then
If j < 5 Then
If SfMatrix(i, j + 1) = 0 Then '平放
SfMatrix(i, j) = s
SfMatrix(i, j + 1) = s
Recursion SfMatrix, s + 1 '递归
SfMatrix(i, j) = 0
SfMatrix(i, j + 1) = 0
End If
End If
If i < 5 Then
If SfMatrix(i + 1, j) = 0 Then '竖直
SfMatrix(i, j) = s
SfMatrix(i + 1, j) = s
Recursion SfMatrix, s + 1 '递归
SfMatrix(i, j) = 0
SfMatrix(i + 1, j) = 0
End If
End If
End If
Next j
Next i
ElseIf s <= 16 Then '1*3方块
For i = 0 To 5
For j = 0 To 5
If SfMatrix(i, j) = 0 Then
If j < 4 Then
If SfMatrix(i, j + 1) = 0 And SfMatrix(i, j + 2) = 0 Then '平放
SfMatrix(i, j) = s
SfMatrix(i, j + 1) = s
SfMatrix(i, j + 2) = s
Recursion SfMatrix, s + 1 '递归
SfMatrix(i, j) = 0
SfMatrix(i, j + 1) = 0
SfMatrix(i, j + 2) = 0
End If
End If
If i < 4 Then
If SfMatrix(i + 1, j) = 0 And SfMatrix(i + 2, j) = 0 Then '竖直
SfMatrix(i, j) = s
SfMatrix(i + 1, j) = s
SfMatrix(i + 2, j) = s
Recursion SfMatrix, s + 1 '递归
SfMatrix(i, j) = 0
SfMatrix(i + 1, j) = 0
SfMatrix(i + 2, j) = 0
End If
End If
End If
Next j
Next i
Else
PrintOut SfMatrix '打印输出
End If
End Sub
thirdapple 2004-07-29
  • 打赏
  • 举报
 回复
Sub PrintOut(Matrix() As Long)
Dim i As Long, j As Long
Dim s As String
For i = 0 To 5
For j = 0 To 5
s = s & Hex(Matrix(i, j) - 1)
Next j
s = s & vbCrLf
Next i
Text1.Text = Text1.Text & vbCrLf & s
C = C + 1
End Sub

Sub Recursion(Matrix() As Long, s As Long)
Dim SfMatrix(0 To 5, 0 To 5) As Long
Dim i As Long, j As Long
For i = 0 To 5
For j = 0 To 5
SfMatrix(i, j) = Matrix(i, j)
Next j
Next i
If s <= 12 Then
For i = 0 To 5
For j = 0 To 5
If SfMatrix(i, j) = 0 Then
If j < 5 Then
If SfMatrix(i, j + 1) = 0 Then
SfMatrix(i, j) = s
SfMatrix(i, j + 1) = s
Recursion SfMatrix, s + 1
SfMatrix(i, j) = 0
SfMatrix(i, j + 1) = 0
End If
End If
If i < 5 Then
If SfMatrix(i + 1, j) = 0 Then
SfMatrix(i, j) = s
SfMatrix(i + 1, j) = s
Recursion SfMatrix, s + 1
SfMatrix(i, j) = 0
SfMatrix(i + 1, j) = 0
End If
End If
End If
Next j
Next i
ElseIf s <= 16 Then
For i = 0 To 5
For j = 0 To 5
If SfMatrix(i, j) = 0 Then
If j < 4 Then
If SfMatrix(i, j + 1) = 0 And SfMatrix(i, j + 2) = 0 Then
SfMatrix(i, j) = s
SfMatrix(i, j + 1) = s
SfMatrix(i, j + 2) = s
Recursion SfMatrix, s + 1
SfMatrix(i, j) = 0
SfMatrix(i, j + 1) = 0
SfMatrix(i, j + 2) = 0
End If
End If
If i < 4 Then
If SfMatrix(i + 1, j) = 0 And SfMatrix(i + 2, j) = 0 Then
SfMatrix(i, j) = s
SfMatrix(i + 1, j) = s
SfMatrix(i + 2, j) = s
Recursion SfMatrix, s + 1
SfMatrix(i, j) = 0
SfMatrix(i + 1, j) = 0
SfMatrix(i + 2, j) = 0
End If
End If
End If
Next j
Next i
Else
PrintOut SfMatrix
End If
End Sub

解的数量大得惊人。
本来不应该用递归的，太深了，有36层，但是约束条件很强，所以用递归解也不为过
觉得有不用递归的简单方法，还没想出来
p.s(给分到马甲)
ryuginka 2004-07-29
  • 打赏
  • 举报
 回复
up
Geo_Cra 2004-07-29
  • 打赏
  • 举报
 回复
那我得换真身答题啦，等
northwolves 2004-07-29
  • 打赏
  • 举报
 回复
To of123:

长方形有两种：1*2（A）, 1*3（B）。欲放入 6*6 正方形中。A 至多可用 12 个，B 至多可用 4 个。

---------------------------------------------------------------------------------

言之有理。 不考虑编号，12 个1*2（A）,4 个 1*3（B）放入6*6 的正方形中，怎么放？有什么别的方法么？
northwolves 2004-07-29
  • 打赏
  • 举报
 回复
“.:RNPA:.”什么意思？
laisiwei 2004-07-28
  • 打赏
  • 举报
 回复
关注
程序员必备算法课！（揭秘淘宝购物车算法）
双十一，双十二，你是否也在购物车中放置了很多商品？当面对购物车中不同商家、不同价格、不同质量和服务的商品时，如何在有限的预算下，选择到让你最满意的商品，本次公开课主要从以下几方面进行讲解：首先讲解如何将购物车选择商品问题转进行量化指标度量，转化为计算机可以求解的算法问题；其次结合实例讲解实际问题如何利用算法求解；最后基于Python语言如何设计算法并在计算机上进行实现。
差分进化算法
文章目录前言一、差分进化算法描述二、差分进化算法流程1.初始化2.变异3.交叉4.选择5。终结条件2.流程图总结 前言 差分进化算法(Differential Evolution Algorithm，DE)是一种高效的全局优化算法。它也是基于群体的启发式搜索算法，群中的每个个体对应一个解向量。差分进化算法的进化流程则与遗传算法非常类似，都包括变异、杂交和选择操作，但这些操作的具体定义与遗传算法有所不同。（百度百科） 一、差分进化算法描述 差分进化算法和遗传算法有些相似，但是比遗传算法简单好实现，但是差分进
背景提取算法——帧间差分法、背景差分法、ViBe算法、ViBe+算法
背景提取算法——帧间差分法、背景差分法、ViBe算法、ViBe+算法： 背景提取有很多算法。针对静止摄像机的帧间差分法、高斯背景差分法、ViBe背景提取算法以及它的改进算法ViBe+，还有针对运动摄像机的光流法等。 本文针对静止摄像机的背景提取算法进行讲解，主要讲解帧间差分法、背景差分法，ViBe算法，以及ViBe+算法。
差分进化算法原理及matlab代码实现
差分进化算法介绍： 在自然界中，遗传，变异，选择的作用，使得生物体优胜略汰，不断由低级向高级进化，人们发现适者生存这一规律可以模式化，从而构成一些列优化算法。差分进化算法就是从这种模式中产生的一种智能优化算法。差分进化算法是基于群体只能理论的优化算法，与进化算法相比，保留了基于种群的全局搜索策略，采用实数编码，基于差分的简单变异操作操作和“一对一”的竞争生存策略...
差分进化算法_差分进化算法入门及实例应用
这个就当是自己学习的整理总结吧。一、差分进化算法理论 差分进化算法是基于群体智能理论的优化算法，通过群体内个体间的合作与竞争而产生的智能优化搜索算法。1.1 差分进化特点（1）结构简单，容易使用。主要通过差分变异算子来进行遗传操作。（2）性能优越。具有较好的可靠性，鲁棒性，高效性。（3）自适应性。差分变异算子可以是一个常数，也可以是一个具有变异步长和搜索方向的自适应能力。（4）具有内在并行性，...
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章