Библиотека NETSquirrel для .NET и .NET Core

{$reference NETSquirrel.dll}
uses NETSquirrelExtensions;
uses NETSquirrel.Utils;
 
begin
  var matrix := MatricesUtils.GenerateMatrix(10, 10, (i, j) -> (i, j), 1, 1);
  (matrix / ((0, 9, 2), (0, 9, 2))).PrintAsMatrix(); // своеобразные срезы
end.

{$reference NETSquirrel.dll}
uses NETSquirrelExtensions;
 
begin
  (VRec(1, 2) = VRec(1, 2)).PrintLine(); // размерные кортежи
end.

{$reference NETSquirrel.dll}
uses NETSquirrel;
uses NETSquirrel.Utils;
uses GeneralExtensions;
 
begin
  var prompts := ArrayOf('first', 'second', 'third', 'fourth', 'fifth');
  ArraysUtils.ReadBoolArray(5, (i: integer) -> $'{prompts[i]}:').PrintLine();
  MatricesUtils.ReadBoolMatrix(5, 5, (i, j) -> $'{prompts[i]}, {prompts[j]}:').PrintAsMatrix();
end.

{$reference NETSquirrel.dll}
uses NumericsExtensions;
uses GeneralExtensions;
 
begin
  var prompts := ArrayOf('first', 'second', 'third');
  ReadVector3();
  ReadMatrix3x2('Элемент {0}, {1}:');
  ReadMatrix3x2((i, j) -> $'{prompts[i]}, {prompts[j]}:');
end.

{$reference NETSquirrel.dll}
uses System.Reflection;
 
type
  Some = class
  public
    a: integer;
  
  private
    b, c: integer;
  end;
 
begin
  (new Some()).AutoPrintLine(BindingFlags.NonPublic or BindingFlags.Instance, ', ');
end.

{$reference NETSquirrel.dll} 
uses NETSquirrel.Utils;
 
begin
  ArraysUtils.GenerateArray&<integer>(10, (a, i) -> begin
    case i of
      0, 1: Result := 1;
      else Result := a[i - 1] + a[i - 2];
    end;
  end).PrintLine();
end.

{$reference NETSquirrel.dll} 
uses NETSquirrel.Utils;
 
begin
  MatricesUtils.GenerateMatrix&<integer>(10, 10, (a, i, j) -> begin
    case j of
      0, 1: Result := 1;
      else Result := a[i, j - 1] + a[i, j - 2];
    end;
  end).PrintAsMatrix();
end.

{$reference NETSquirrel.dll}
uses NETSquirrel.Utils;
uses NETSquirrel;
 
begin
  ArraysUtils.ReadBoolArray(10, procedure(e) -> e.Message.PrintLine(), 'item {0} = ').PrintLine();
  ArraysUtils.ReadBoolArray(10, procedure(e) -> e.Message.PrintLine(),
    i -> string.Format('{0} item = ', (new string[] ('even', 'odd'))[i mod 2])).PrintLine();
end.

{$reference NETSquirrel.dll}
uses NETSquirrel.Utils;
uses System;
 
begin
  Console.ForegroundColor := ConsoleColor.White;
  MatricesUtils.ReadIntMatrix(10, 10, procedure(e) -> e.Message.SetForegroundColor(ConsoleColor.Red).PrintLine(),
    (i, j) -> begin
      Console.ForegroundColor := ConsoleColor(3 + (i + j) mod 2);
      Result := 'item ({0}, {1}) = ';
    end, true).SetForegroundColor(ConsoleColor.White).PrintAsMatrix();
end.