Data commit

Task/Maximum-triangle-path-sum/PureBasic/maximum-triangle-path-sum.basic

@@ -0,0 +1,54 @@
+OpenConsole()
+Dim ln.s(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.i(20,20)
+Define.i x = 1, tam = 0
+Define.i i, y, s1, s2, n
+
+For n = 1 To ArraySize(ln(),1) - 1
+  ln2.s = LTrim(ln(n))
+  For y = 1 To x
+    matrix(x, y) = Val(Left(ln2, 2))
+    If Len(ln2) > 4:
+      ln2 = Mid(ln2, 4, Len(ln2)-4)
+    EndIf
+  Next y
+  x + 1
+  tam + 1
+Next n
+
+For x = tam - 1 To 1 Step - 1
+  For y = 1 To x
+    s1 = matrix(x+1, y)
+    s2 = matrix(x+1, y+1)
+    If s1 > s2:
+      matrix(x, y) = matrix(x, y) + s1
+    Else
+      matrix(x, y) = matrix(x, y) + s2
+    EndIf
+  Next y
+Next x
+
+PrintN(#CRLF$ + "  maximum triangle path sum = " + Str(matrix(1, 1)))
+
+Input()
+CloseConsole()