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

{$reference NETSquirrel.dll}
uses NETSquirrel;
uses NETSquirrel.Utils;
 
begin
  ArraysUtils.CreateRandomIntArray(10, -10, 11).PrintLine().Abs().PrintLine();
end.

{$reference NETSquirrel.dll}
uses NETSquirrel.Utils;
uses System.Diagnostics;
uses NETSquirrel.Extensions;
uses System.Text;
 
const
  MaxRowsCount = 10;
  MaxColumnsCount = 10;
  Min = -10000;
  Max = 10000;
  TestsCount = 10;
 
function NETSquirrelMatricesOutput(): integer;
begin
  var _stopWatch := new Stopwatch();
  _stopWatch.Start();
 
  for var i := 1 to MaxRowsCount do
    for var j := 1 to MaxColumnsCount do
    begin
      MatricesUtils.CreateRandomIntMatrix(i, j, Min, Max).PrintAsMatrix();
      ''.PrintLine();
    end;
  
  _stopWatch.Stop();
  Result := _stopWatch.ElapsedMilliseconds;
end;
 
function PABCSystemMatricesOutput(): integer;
begin
  var _stopWatch := new Stopwatch();
  _stopWatch.Start();
 
  for var i := 1 to MaxRowsCount do
    for var j := 1 to MaxColumnsCount do
    begin
      MatrRandom(i, j, Min, Max).Print();
      Println();
    end;
  
  _stopWatch.Stop();
  Result := _stopWatch.ElapsedMilliseconds;
end;
 
procedure ExecuteTest(var netSquirrelTime, pabcSystemTime: int64);
begin
  netSquirrelTime += NETSquirrelMatricesOutput();
  (new StringBuilder()).Append('=', 10).PrintLine();
  pabcSystemTime += PABCSystemMatricesOutput();
  (new StringBuilder()).Append('*', 10).PrintLine();
end;
 
begin
  var netSquirrelAverage: int64 = 0;
  var pabcSystemAverage: int64 = 0;
  for var i := 0 to TestsCount - 1 do
    ExecuteTest(netSquirrelAverage, pabcSystemAverage);
 
  $'NETSquirrel = {netSquirrelAverage / TestsCount}, PABCSystem = {pabcSystemAverage / TestsCount}'.PrintLine();
end.

/// Вывод двумерного массива, w - ширина поля вывода
function Print<T>(Self: array [,] of T; w: integer := 4): array [,] of T; extensionmethod;
begin
  for var i := 0 to Self.RowCount - 1 do
  begin
    for var j := 0 to Self.ColCount - 1 do
    begin
      if PrintMatrixWithFormat then
        Write(StructuredObjectToString(Self[i, j]).PadLeft(w))
      else Print(Self[i, j]);
    end;
    Writeln;  
  end;
  Result := Self;  
end;

function StructuredObjectToString(o: Object; n: integer := 0): string;
const
  nmax = 100;
  nmax1 = 30;
begin
  if o = nil then
    Result := 'nil' 
  else if o is System.Reflection.Pointer then
    Result := PointerToString(System.Reflection.Pointer.Unbox(o))
  else if (o.GetType = typeof(real)) or (o.GetType = typeof(decimal)) or (o.GetType = typeof(single)) then
    Result := FormatFloatNumber(o.ToString)
  else if (o.GetType = typeof(Complex)) then 
  begin
    var c := Complex(o);
    Result := '(' + StructuredObjectToString(c.Real) + ',' + StructuredObjectToString(c.Imaginary) + ')';
  end
  else if (o.GetType.IsPrimitive) or (o.GetType = typeof(string)) then
    Result := o.ToString
  else if o is System.Array then
  begin
    var a := o as System.Array;  
    Result := ArrNToString(a, new integer[a.Rank], 0); 
  end
  else if o is System.Collections.IEnumerable then
  begin
    var sb := new StringBuilder();
    var g := (o as System.Collections.IEnumerable).GetEnumerator();
    
    var isdictorset := o.GetType.Name.Equals('Dictionary`2') or o.GetType.Name.Equals('SortedDictionary`2') or (o.GetType = typeof(TypedSet)) or o.GetType.Name.Equals('HashSet`1') or o.GetType.Name.Equals('SortedSet`1');
    if isdictorset then
      sb.Append('{')
    else sb.Append('[');
    if g.MoveNext() then
    begin  
      sb.Append(StructuredObjectToString(g.Current, n + 1));
      var cnt := 1;  
      while g.MoveNext() and (cnt < nmax) do 
      begin
        sb.Append(',');
        sb.Append(StructuredObjectToString(g.Current, n + 1));
        cnt += 1;
      end;
      if cnt >= nmax then 
        sb.Append(',...');
    end;    
    
    if isdictorset then
      sb.Append('}')
    else sb.Append(']');
    Result := sb.ToString;
  end
  else if o.GetType.GetField('NullBasedArray') <> nil then
  begin
    var f := o.GetType.GetField('NullBasedArray');
    Result := StructuredObjectToString(f.GetValue(o));
  end
  else
  begin
    var q := RedefinedToString(o);
    var gg := o.GetType.FullName.StartsWith('System.Tuple');
    var gg1 := o.GetType.Name.StartsWith('KeyValuePair');
    if (q <> nil) and q.IsVirtual and not gg and not gg1 then
      Result := o.ToString
    else 
    begin
      var t := o.GetType;
      var sb := new System.Text.StringBuilder();
      sb.Append('(');
      if n > nmax1 then
        sb.Append('....')
      else 
        while t <> typeof(object) do
        begin
          var ff := t.GetFields(System.Reflection.BindingFlags.Public or System.Reflection.BindingFlags.Instance or System.Reflection.BindingFlags.DeclaredOnly);
          var pp := t.GetProperties(System.Reflection.BindingFlags.Public or System.Reflection.BindingFlags.Instance or System.Reflection.BindingFlags.DeclaredOnly);
          
          for var i := ff.Length - 1 downto 0 do
            sb.Insert(1, StructuredObjectToString(ff[i].GetValue(o), n + 1) + ',');
          
          for var i := pp.Length - 1 downto 0 do
            if pp[i].GetIndexParameters.Length = 0 then
              sb.Insert(1, StructuredObjectToString(pp[i].GetValue(o, nil), n + 1) + ',');
          
          t := t.BaseType;
        end; 
      if sb.Length > 1 then 
        sb.Length := sb.Length - 1;
      sb.Append(')');
      Result := sb.ToString;
    end;
  end;
end;

{$reference NETSquirrel.dll}
uses NETSquirrel.Utils;
 
begin
  MatricesUtils.ReadIntMatrix(10, 10, e -> true, true, 'item [{0}, {1}]:').PrintAsMatrix();
end.

{$reference NETSquirrel.dll}
uses NETSquirrel;
 
begin
  'Hello world!'.Slice(new SliceSpan(0, 5, 2), x -> char(integer(x) + 2)).PrintLine();
end.