36 lines
1.2 KiB
ObjectPascal
36 lines
1.2 KiB
ObjectPascal
var
|
|
data := arr(
|
|
|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|);
|
|
|
|
function solve(triangle: array of array of integer): integer;
|
|
begin
|
|
var rows := triangle.Count;
|
|
var sumrow := triangle[rows - 1];
|
|
for var row := rows - 1 downto 1 do
|
|
sumrow := sumrow.Pairwise((x, y) -> Max(x, y))
|
|
.Zip(triangle[row - 1], (x, y) -> x + y).ToArray;
|
|
|
|
result := sumrow[0];
|
|
end;
|
|
|
|
begin
|
|
solve(data).Println;
|
|
end.
|