[第13期] 七巧板

lujkhua

qee用 发表于 2006-7-12 16:26
评论:用兄的计算结果完全正确,代码执行速度也很可观,在我的机子上运行需要2.3秒.
[此贴子已经被northwolve ...

我运行才0.17秒！

lqzxzzf

太难了一点，学习很辛苦

香川群子

我的递归计算，也只要0.几秒：

1. Dim a&(), b(), k&, m&, n&
   
2. Sub test2()
   
3.     Dim i&, j&, tms#
   
4.     tms = Timer
   
5. 
   
6.     ReDim a&(1 To 4, 1 To 4), b(28800)
   
7.    
   
8.     m = 0: n = 2: k = 0
   
9.     Call dg2(0)
   
10.    
    
11.     MsgBox Format(Timer - tms, "0.00s ") & k
    
12. 
    
13. End Sub
    
14. Sub dg2(t&)
    
15.     Dim i&, j&, s$
    
16. '    [a1].Resize(4, 4) = a
    
17.     If t = 7 Then k = k + 1: b(k) = a: Exit Sub
    
18. 
    
19.     If m < 2 Then
    
20.         For i = 1 To 4
    
21.             For j = 1 To 2
    
22.                 If a(i, j) = 0 Then
    
23.                     If a(i, j + 1) = 0 Then
    
24.                         If a(i, j + 2) = 0 Then m = m + 1: a(i, j) = m: a(i, j + 1) = m:  a(i, j + 2) = m: Call dg2(t + 1): a(i, j) = 0: a(i, j + 1) = 0: a(i, j + 2) = 0: m = m - 1
    
25.                     End If
    
26.                 End If
    
27.             Next
    
28.         Next
    
29.         For i = 1 To 2
    
30.             For j = 1 To 4
    
31.                 If a(i, j) = 0 Then
    
32.                     If a(i + 1, j) = 0 Then
    
33.                         If a(i + 2, j) = 0 Then m = m + 1: a(i, j) = m: a(i + 1, j) = m: a(i + 2, j) = m: Call dg2(t + 1): a(i, j) = 0: a(i + 1, j) = 0: a(i + 2, j) = 0: m = m - 1
    
34.                     End If
    
35.                 End If
    
36.             Next
    
37.         Next
    
38.     Else
    
39.         If n < 7 Then
    
40.             For i = 1 To 4
    
41.                 For j = 1 To 3
    
42.                     If a(i, j) = 0 Then
    
43.                         If a(i, j + 1) = 0 Then n = n + 1: a(i, j) = n: a(i, j + 1) = n: Call dg2(t + 1): a(i, j) = 0: a(i, j + 1) = 0: n = n - 1
    
44.                     End If
    
45.                 Next
    
46.             Next
    
47.             For i = 1 To 3
    
48.                 For j = 1 To 4
    
49.                     If a(i, j) = 0 Then
    
50.                         If a(i + 1, j) = 0 Then n = n + 1: a(i, j) = n: a(i + 1, j) = n: Call dg2(t + 1): a(i, j) = 0: a(i + 1, j) = 0: n = n - 1
    
51.                     End If
    
52.                 Next
    
53.             Next
    
54.         End If
    
55.     End If
    
56. End Sub
    

复制代码

递归计算原理：
先安排长度3的2个、且按照横、竖分开循环。
再安排长度2的5个、也按照横、竖分开循环。

这样就没有太多冗余的检查了，所以速度很快。

tear

还以为是三角形的，想了半天，原来都做的方形的

走过路过嫑错过

神一样的作品