42 lines
1.4 KiB
Plaintext
42 lines
1.4 KiB
Plaintext
100 DIM LN$(19)
|
|
110 LN$(1) = "55"
|
|
120 LN$(2) = "94 48"
|
|
130 LN$(3) = "95 30 96"
|
|
140 LN$(4) = "77 71 26 67"
|
|
150 LN$(5) = "97 13 76 38 45"
|
|
160 LN$(6) = "07 36 79 16 37 68"
|
|
170 LN$(7) = "48 07 09 18 70 26 06"
|
|
180 LN$(8) = "18 72 79 46 59 79 29 90"
|
|
190 LN$(9) = "20 76 87 11 32 07 07 49 18"
|
|
200 LN$(10) = "27 83 58 35 71 11 25 57 29 85"
|
|
210 LN$(11) = "14 64 36 96 27 11 58 56 92 18 55"
|
|
220 LN$(12) = "02 90 03 60 48 49 41 46 33 36 47 23"
|
|
230 LN$(13) = "92 50 48 02 36 59 42 79 72 20 82 77 42"
|
|
240 LN$(14) = "56 78 38 80 39 75 02 71 66 66 01 03 55 72"
|
|
250 LN$(15) = "44 25 67 84 71 67 11 61 40 57 58 89 40 56 36"
|
|
260 LN$(16) = "85 32 25 85 57 48 84 35 47 62 17 01 01 99 89 52"
|
|
270 LN$(17) = "06 71 28 75 94 48 37 10 23 51 06 48 53 18 74 98 15"
|
|
280 LN$(18) = "27 02 92 23 08 71 76 84 15 52 92 63 81 10 44 10 69 93"
|
|
290 LN$(19) = "end"
|
|
300 DIM MATRIX(20,20)
|
|
310 X = 1
|
|
320 TAM = 0
|
|
330 FOR N = 1 TO 19
|
|
340 LN2$ = LN$(N)
|
|
350 FOR Y = 1 TO X
|
|
360 MATRIX(X,Y) = VAL(LEFT$(LN2$,2))
|
|
370 IF LEN(LN2$) > 4 THEN LN2$ = MID$(LN2$,4,LEN(LN2$)-4)
|
|
380 NEXT Y
|
|
390 X = X+1
|
|
400 TAM = TAM+1
|
|
410 NEXT N
|
|
420 FOR Z = TAM-1 TO 1 STEP -1
|
|
430 FOR Y = 1 TO Z
|
|
440 S1 = MATRIX(Z+1,Y)
|
|
450 S2 = MATRIX(Z+1,Y+1)
|
|
460 IF S1 > S2 THEN MATRIX(Z,Y) = MATRIX(Z,Y)+S1
|
|
470 IF S1 <= S2 THEN MATRIX(Z,Y) = MATRIX(Z,Y)+S2
|
|
480 NEXT Y
|
|
490 NEXT Z
|
|
500 PRINT " maximum triangle path sum = ";MATRIX(1,1)
|