[开_72]一道益智题，试试大家的编程技巧 [已总结]

hcf568

没有时间编写程序，在boszzy老大的基础上加入14个顺序的计算，速度提高50%，但我没有时间看主要程序，所以没有把倒序的部分加入。理论上加入了应当提高一部分速度。

hy8888

楼上的有意思 从 2005-12-22 14:58:02 就说没时间做

我也借用一下，哎呀，最近比较忙，看各位的都能看明白，就没时间写，提个思路：用运算速度快的代码，能在楼上的基础上能把速度提高10%

以上玩笑。

说句严肃的：这道题出得实在是好。好就好在有不同的算法。如果一味的穷举出所有答案来检查是否符合要求，所耗的时间多得惊人。如何减少循环和判断的次数是提高速度的根本。

没有写出程序，纸上谈兵，顺带班门弄斧，各位莫怪。[em08]

nmc

寫得很好呀

skyya

好久没有用False了，不过还好啦！模版已经给了，好我第一个顶上！！嘻

lee1892

这题啥意思？
由0_0出发，沿路径遍历所有节点回到出发点，不得重复路过节点？
或则
由0_0出发，遍历所有路径，回到出发点，不得重复经过路径？

题目都不描述清楚，让人猜得吗？

lee1892

下载了那个flash才明白，是从图中任意一个节点开始，像中国象棋马的走法走日字格，遍历所有节点且仅走一次并回到起始点，要求找出所有走法。

这题就是一个极其简单的寻找哈密顿回路（Hamiltonian Cycle），建立一个图（Graph）数据结构，顶点是各个节点，边是与其成日字格之间的节点之间的路径。

采用深度优先遍历图中节点，设置好退出机制，很容易就可以遍历查出所以可能的回路。

以下是构建图数据结构的代码：
[code=vb]Type PADDLE_INFO
    Name    As String
    X       As Integer
    Y       As Integer
    Links   As Collection
End Type

Sub GenerateGraph()
    Dim i%, j%, k%, aPads(13) As PADDLE_INFO, nCnt%, sCon$
    nCnt = -1
    For i = 0 To 3
        For j = 0 To 3
            If Not (i = 0 And j = 3) And Not (i = 3 And j = 3) Then
                nCnt = nCnt + 1
                With aPads(nCnt)
                    .Name = i & "_" & j
                    .X = i: .Y = j
                    Set .Links = New Collection
                End With
            End If
        Next
    Next
    For i = 0 To nCnt
        sCon = ""
        For j = 0 To nCnt
            If i <> j Then
                If Abs(aPads(i).X - aPads(j).X) * Abs(aPads(i).Y - aPads(j).Y) = 2 Then
                    aPads(i).Links.Add j
                    sCon = sCon & ", " & aPads(j).Name
                End If
            End If
        Next
        sCon = Right(sCon, Len(sCon) - 2)
        Debug.Print aPads(i).Name & ": " & sCon
    Next
End Sub[/code]

遍历查找的办法当然是递归，14个顶点的图，遍历是非常快得~


补充内容 (2013-10-10 14:43):
这题该给我5分，嘿嘿

lee1892

相关的展开讨论见：http://club.excelhome.net/thread-1061728-1-1.html

ghoob

请参与答题的朋友都能投上一票，好让大家对题目的难度有所了解，谢谢
哪的智商的多少才行啊，我智商低。