RosettaCodeData/Task/Maximum-triangle-path-sum/Stata/maximum-triangle-path-sum.stata

import delimited triangle.txt, delim(" ") clear
mata
a = st_data(.,.)
n = rows(a)
for (i=n-1; i>=1; i--) {
	for (j=1; j<=i; j++) {
		a[i,j] = a[i,j]+max((a[i+1,j],a[i+1,j+1]))
	}
}
a[1,1]
end