49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
dim ln$(19)
|
|
ln$(1) = " 55"
|
|
ln$(2) = " 94 48"
|
|
ln$(3) = " 95 30 96"
|
|
ln$(4) = " 77 71 26 67"
|
|
ln$(5) = " 97 13 76 38 45"
|
|
ln$(6) = " 07 36 79 16 37 68"
|
|
ln$(7) = " 48 07 09 18 70 26 06"
|
|
ln$(8) = " 18 72 79 46 59 79 29 90"
|
|
ln$(9) = " 20 76 87 11 32 07 07 49 18"
|
|
ln$(10) = " 27 83 58 35 71 11 25 57 29 85"
|
|
ln$(11) = " 14 64 36 96 27 11 58 56 92 18 55"
|
|
ln$(12) = " 02 90 03 60 48 49 41 46 33 36 47 23"
|
|
ln$(13) = " 92 50 48 02 36 59 42 79 72 20 82 77 42"
|
|
ln$(14) = " 56 78 38 80 39 75 02 71 66 66 01 03 55 72"
|
|
ln$(15) = " 44 25 67 84 71 67 11 61 40 57 58 89 40 56 36"
|
|
ln$(16) = " 85 32 25 85 57 48 84 35 47 62 17 01 01 99 89 52"
|
|
ln$(17) = " 06 71 28 75 94 48 37 10 23 51 06 48 53 18 74 98 15"
|
|
ln$(18) = " 27 02 92 23 08 71 76 84 15 52 92 63 81 10 44 10 69 93"
|
|
ln$(19) = "end"
|
|
|
|
dim matrix(20,20)
|
|
x = 1
|
|
tam = 0
|
|
|
|
for n = 1 to 19 'ubound(ln$) - 1
|
|
ln2$ = trim$(ln$(n))
|
|
for y = 1 to x
|
|
matrix(x, y) = val(left$(ln2$, 2))
|
|
if len(ln2$) > 4 then ln2$ = mid$(ln2$, 4, len(ln2$)-4)
|
|
next y
|
|
x = x +1
|
|
tam = tam +1
|
|
next n
|
|
|
|
for z = tam-1 to 1 step -1
|
|
for y = 1 to z
|
|
s1 = matrix(z+1, y)
|
|
s2 = matrix(z+1, y+1)
|
|
if s1 > s2 then
|
|
matrix(z, y) = matrix(z, y) +s1
|
|
else
|
|
matrix(z, y) = matrix(z, y) +s2
|
|
end if
|
|
next y
|
|
next z
|
|
|
|
print " maximum triangle path sum = "; matrix(1, 1)
|