g <- lapply(strsplit(readLines('p067_triangle.txt'), " "), as.integer)
n <- length(g) - 1

for(i in n:1)
    for(j in 1:i)
        g[[i]][j] <- g[[i]][j] + max(g[[i + 1]][j], g[[i + 1]][j + 1])

g[[1]]