Data commit

Task/Maximum-triangle-path-sum/ERRE/maximum-triangle-path-sum.erre

@@ -0,0 +1,56 @@
+PROGRAM TRIANGLE_PATH
+
+CONST ROW=18
+
+DIM TRI[200]
+
+!
+! for rosettacode,org
+!
+
+FUNCTION MAX(X,Y)
+   MAX=-X*(X>=Y)-Y*(X<Y)
+END FUNCTION
+
+BEGIN
+
+     DATA(55)
+     DATA(94,48)
+     DATA(95,30,96)
+     DATA(77,71,26,67)
+     DATA(97,13,76,38,45)
+     DATA(7,36,79,16,37,68)
+     DATA(48,7,9,18,70,26,6)
+     DATA(18,72,79,46,59,79,29,90)
+     DATA(20,76,87,11,32,7,7,49,18)
+     DATA(27,83,58,35,71,11,25,57,29,85)
+     DATA(14,64,36,96,27,11,58,56,92,18,55)
+     DATA(2,90,3,60,48,49,41,46,33,36,47,23)
+     DATA(92,50,48,2,36,59,42,79,72,20,82,77,42)
+     DATA(56,78,38,80,39,75,2,71,66,66,1,3,55,72)
+     DATA(44,25,67,84,71,67,11,61,40,57,58,89,40,56,36)
+     DATA(85,32,25,85,57,48,84,35,47,62,17,1,1,99,89,52)
+     DATA(6,71,28,75,94,48,37,10,23,51,6,48,53,18,74,98,15)
+     DATA(27,2,92,23,8,71,76,84,15,52,92,63,81,10,44,10,69,93)
+
+     PRINT(CHR$(12);) !CLS
+     LUNG=ROW*(ROW+1)/2
+     FOR I%=0 TO LUNG-1 DO
+        READ(TRI[I%])
+     END FOR
+
+     BSE=(SQR(8*LUNG+1)-1)/2
+     STP=BSE-1
+     STEPC=0
+
+     FOR I%=LUNG-BSE-1 TO 0 STEP -1 DO
+        TRI[I%]=TRI[I%]+MAX(TRI[I%+STP],TRI[I%+STP+1])
+        STEPC=STEPC+1
+        IF STEPC=STP THEN
+             STP=STP-1
+             STEPC=0
+        END IF
+     END FOR
+
+     PRINT(TRI[0])
+END PROGRAM