June 2018 Update

Task/Maximum-triangle-path-sum/Elena/maximum-triangle-path-sum.elena

@@ -0,0 +1,52 @@
+import system'routines.
+import extensions.
+import extensions'math.
+
+literal input =              "55
+                            94 48
+                          95 30 96
+                        77 71 26 67
+                       97 13 76 38 45
+                     07 36 79 16 37 68
+                    48 07 09 18 70 26 06
+                  18 72 79 46 59 79 29 90
+                 20 76 87 11 32 07 07 49 18
+               27 83 58 35 71 11 25 57 29 85
+              14 64 36 96 27 11 58 56 92 18 55
+            02 90 03 60 48 49 41 46 33 36 47 23
+           92 50 48 02 36 59 42 79 72 20 82 77 42
+         56 78 38 80 39 75 02 71 66 66 01 03 55 72
+        44 25 67 84 71 67 11 61 40 57 58 89 40 56 36
+      85 32 25 85 57 48 84 35 47 62 17 01 01 99 89 52
+     06 71 28 75 94 48 37 10 23 51 06 48 53 18 74 98 15
+   27 02 92 23 08 71 76 84 15 52 92 63 81 10 44 10 69 93".
+
+program =
+[
+    var list := IntMatrix new(18,19).
+
+    int i := 0.
+    int j := 0.
+    input split('newLine); forEach(:line)<literal>
+    [
+        j := 0.
+        line trim; split(" "); forEach(:num)<literal>
+        [
+            list[i][j] := num toInt.
+
+            j += 1
+        ].
+
+        i += 1.
+    ].
+
+    16 to:0 do(:i)<int>
+    [
+        0 till:18 do(:j)<int>
+        [
+            list[i][j] := mathControl max(list[i][j] + list[i+1][j], list[i][j] + list[i+1][j+1]).
+        ].
+    ].
+
+    console printLine("Maximum total: ", list[0][0]).
+].