用VBA解欧拉计划题目（18）

grf1973

第18题：最大路径和 I

从下面展示的三角形的顶端出发，不断移动到在下一行与其相邻的元素，能够得到的最大路径和是23。

3
7 4
2 4 6
8 5 9 3

如上图，最大路径和为 3 + 7 + 4 + 9 = 23。

求从下面展示的三角形顶端出发到达底部，所能够得到的最大路径和：

75
95 64
17 47 82
18 35 87 10
20 04 82 47 65
19 01 23 75 03 34
88 02 77 73 07 63 67
99 65 04 28 06 16 70 92
41 41 26 56 83 40 80 70 33
41 48 72 33 47 32 37 16 94 29
53 71 44 65 25 43 91 52 97 51 14
70 11 33 28 77 73 17 78 39 68 17 57
91 71 52 38 17 14 91 43 58 50 27 29 48
63 66 04 68 89 53 67 30 73 16 69 87 40 31
04 62 98 27 23 09 70 98 73 93 38 53 60 04 23

结果是1074

grf1973

贴文本有点变形，上图。

砂海

1. Sub 路径()
   
2. 
   
3.     Dim arr, i%, j%, p%, 和(1 To 15, 1 To 15) As Integer, 路(1 To 15, 1 To 15) As String
   
4.    
   
5.     arr = Range("A1:o15").Value
   
6.     For j = 1 To 15
   
7.         和(15, j) = arr(15, j)
   
8.         路(15, j) = arr(15, j)
   
9.     Next j
   
10.             
    
11.     For i = 15 To 2 Step -1
    
12.         For j = 1 To i - 1
    
13.         
    
14.             p = 和(i, j) < 和(i, j + 1)
    
15.             
    
16.             和(i - 1, j) = arr(i - 1, j) + 和(i, j - p)
    
17.             路(i - 1, j) = arr(i - 1, j) & "," & 路(i, j - p)
    
18.            
    
19.         Next j
    
20.     Next i
    
21.    
    
22.     Debug.Print 和(1, 1) & " = {" & 路(1, 1) & "}"
    
23.    
    
24. End Sub

复制代码

grf1973

嗯，应该就是这个思路，从下往上，两两相加取大者作为新行。

大灰狼1976

我只会遍历，我的电脑上速度0.1s左右。

grf1973

遍历是可以的。但之后会有一道相同的题目，100行的。你再遍历试试？

香川群子

grf1973 发表于 2017-11-7 09:30
遍历是可以的。但之后会有一道相同的题目，100行的。你再遍历试试？

15行增加到100行而已，不会有太大的困难。