Оптимизация треугольника Паскаля: Minimalistic Code Approach

Delphi , Синтаксис , Математика

Для начала, давайте разберемся с тем, что такое треугольник Паскаля. Это числовой треугольник, в котором каждая строка начинается и заканчивается на 1, а каждое другое число равно сумме двух чисел из предыдущей строки. Задача состоит в том, чтобы сгенерировать такой треугольник размера N с минимальным количеством строк кода.

Решение на Object Pascal (Delphi)

program PascalTriangle;
{$APPTYPE CONSOLE}
uses
  System.SysUtils;

function GeneratePascalTriangle(Size: Integer): TArray<TArray<Integer>>;
var
  Row, Column: Integer;
begin
  SetLength(Result, Size);
  for Row := 0 to Size - 1 do
  begin
    SetLength(Result[Row], Row + 1);
    Result[Row][0] := 1;
    for Column := 1 to Row do
      Result[Row][Column] := Result[Row - 1][Column] + Result[Row - 1][Column - 1];
  end;
end;

var
  Triangle: TArray<TArray<Integer>>;
  Row, Column: Integer;
begin
  Triangle := GeneratePascalTriangle(10);
  for Row in Triangle do
  begin
    for Column in Row do
      Write(Column:3);
    Writeln;
  end;
  Readln;
end.

Объяснение кода

Функция GeneratePascalTriangle принимает размер треугольника и возвращает двумерный массив, где каждая строка содержит элементы соответствующей строки треугольника Паскаля. В цикле создаются строки треугольника, и в них вычисляются числа согласно правилам треугольника Паскаля.

Пример вывода

          1
         1 1
        1 2 1
       1 3 3 1
      1 4 6 4 1
     1 5 10 10 5 1
    1 6 15 20 15 6 1
   1 7 21 35 35 21 7 1
  1 8 28 56 70 56 28 8 1
 1 9 36 84 126 126 84 36 9 1

Этот код можно использовать в качестве шаблона для создания треугольника Паскаля на языке Object Pascal (Delphi) с минимальным количеством дополнительных ухищрений, так как основной акцент в задаче код-гольфа — на краткость.

Создано по материалам из источника по ссылке.

Описание функции генерации числового треугольника Паскаля на языке Object Pascal с целью минимизации количества строк кода.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Математика ::