function Indexes<T>(Self: array of T): sequence of integer;
diff --git a/PABCNetHelp/PABCSystemDocGen/PABC.pas b/PABCNetHelp/PABCSystemDocGen/PABC.pas
deleted file mode 100644
index a7755d6c2..000000000
--- a/PABCNetHelp/PABCSystemDocGen/PABC.pas
+++ /dev/null
@@ -1,3965 +0,0 @@
-
-// -----------------------------------------------------
-//>> # Standard constants
-// -----------------------------------------------------
-const
- /// shortint
- MaxShortInt = shortint.MaxValue;
- /// byte
- MaxByte = byte.MaxValue;
- /// smallint
- MaxSmallInt = smallint.MaxValue;
- /// word
- MaxWord = word.MaxValue;
- /// longword
- MaxLongWord = longword.MaxValue;
- /// int64
- MaxInt64 = int64.MaxValue;
- /// uint64
- MaxUInt64 = uint64.MaxValue;
- /// double
- MaxDouble = real.MaxValue;
- /// double
- MinDouble = real.Epsilon;
- /// real
- MaxReal = real.MaxValue;
- /// real
- MinReal = real.Epsilon;
- /// single
- MaxSingle = single.MaxValue;
- /// single
- MinSingle = single.Epsilon;
- /// integer
- MaxInt = integer.MaxValue;
- /// Pi
- /// !! Pi constant
- Pi = 3.141592653589793;
- /// E
- /// !! E constant
- E = 2.718281828459045;
- ///
- /// !! The newline string defined for this environment.
- NewLine = System.Environment.NewLine;
-// -----------------------------------------------------
-//>> # Standard types
-// -----------------------------------------------------
-type
- ///
- Object = System.Object;
-
- ///
- Exception = System.Exception;
-
- /// double = real
- double = System.Double;
-
- /// longint = integer
- longint = System.Int32;
-
- /// cardinal = longword
- cardinal = System.UInt32;
-
- /// 128-
- /// !! Represents a decimal number
- decimal = System.Decimal;
-
- ///
- BigInteger = System.Numerics.BigInteger;
-
- ///
- DateTime = System.DateTime;
-
- ///
- Complex = System.Numerics.Complex;
-
- ///
- Tuple = System.Tuple;
-
- ///
- List = System.Collections.Generic.List;
-
- /// IComparer
- Comparer = System.Collections.Generic.Comparer;
-
- /// IComparer
- IComparable = System.IComparable;
-
- /// , -
- HashSet = System.Collections.Generic.HashSet;
-
- /// ,
- SortedSet = System.Collections.Generic.SortedSet;
-
- /// ( -), -
- Dictionary = System.Collections.Generic.Dictionary;
-
- /// ,
- SortedDictionary = System.Collections.Generic.SortedDictionary;
-
- /// ( -),
- SortedList = System.Collections.Generic.SortedList;
-
- /// -
- KeyValuePair = System.Collections.Generic.KeyValuePair;
-
- ///
- LinkedList = System.Collections.Generic.LinkedList;
-
- ///
- LinkedListNode = System.Collections.Generic.LinkedListNode;
-
- /// - , " - "
- Queue = System.Collections.Generic.Queue;
-
- /// - , " - "
- Stack = System.Collections.Generic.Stack;
-
- ///
- ICollection = System.Collections.Generic.ICollection;
-
- ///
- IComparer = System.Collections.Generic.IComparer;
-
- /// -
- IDictionary = System.Collections.Generic.IDictionary;
-
- /// ,
- IEnumerable = System.Collections.Generic.IEnumerable;
-
- ///
- IEnumerator = System.Collections.Generic.IEnumerator;
-
- ///
- IEqualityComparer = System.Collections.Generic.IEqualityComparer;
-
- ///
- IList = System.Collections.Generic.IList;
-
- ///
- ISet = System.Collections.Generic.ISet;
-
- ///
- StringBuilder = System.Text.StringBuilder;
-
- ///
- Encoding = System.Text.Encoding;
-
- ///
- Action0 = System.Action;
-
- ///
- Action = System.Action;
-
- ///
- Action2 = System.Action;
-
- ///
- Action3 = System.Action;
-
- ///
- Func0 = System.Func;
-
- ///
- Func = System.Func;
-
- ///
- Func2 = System.Func;
-
- ///
- Func3 = System.Func;
-
- /// ,
- IntFunc = Func;
-
- /// ,
- RealFunc = Func;
-
- /// ,
- StringFunc = Func;
-
- /// , boolean
- Predicate = System.Predicate;
-
- /// , boolean
- Predicate2 = function(x1: T1; x2: T2): boolean;
-
- /// , boolean
- Predicate3 = function(x1: T1; x2: T2; x3: T3): boolean;
-
- ///
- Regex = System.Text.RegularExpressions.Regex;
-
- ///
- Match = System.Text.RegularExpressions.Match;
-
- /// , Regex.Replace
- MatchEvaluator = System.Text.RegularExpressions.MatchEvaluator;
-
- ///
- MatchCollection = System.Text.RegularExpressions.MatchCollection;
-
- ///
- RegexOptions = System.Text.RegularExpressions.RegexOptions;
-
- /// Regex.Match
- RegexGroup = System.Text.RegularExpressions.Group;
-
- /// Regex.Match
- RegexGroupCollection = System.Text.RegularExpressions.GroupCollection;
-
- /// 255
- ShortString = string[255];
-
-
-// -----------------------------------------------------
-//>> # Read subroutines
-// -----------------------------------------------------
-///- procedure Read(a,b,...);
-/// a,b,...
-procedure Read;
-///--
-procedure Read(var x: integer);
-///--
-procedure Read(var x: real);
-///--
-procedure Read(var x: char);
-///--
-procedure Read(var x: string);
-///--
-procedure Read(var x: byte);
-///--
-procedure Read(var x: shortint);
-///--
-procedure Read(var x: smallint);
-///--
-procedure Read(var x: word);
-///--
-procedure Read(var x: longword);
-///--
-procedure Read(var x: int64);
-///--
-procedure Read(var x: uint64);
-///--
-procedure Read(var x: single);
-///--
-procedure Read(var x: boolean);
-///- procedure Readln(a,b,...);
-/// a,b,...
-procedure Readln;
-
-/// x . False
-function TryRead(var x: integer): boolean;
-///--
-function TryRead(var x: real): boolean;
-///--
-function TryRead(var x: byte): boolean;
-///--
-function TryRead(var x: shortint): boolean;
-///--
-function TryRead(var x: smallint): boolean;
-///--
-function TryRead(var x: word): boolean;
-///--
-function TryRead(var x: longword): boolean;
-///--
-function TryRead(var x: int64): boolean;
-///--
-function TryRead(var x: uint64): boolean;
-///--
-function TryRead(var x: single): boolean;
-
-/// integer,
-function ReadInteger: integer;
-/// real,
-function ReadReal: real;
-/// char,
-function ReadChar: char;
-/// string,
-function ReadString: string;
-/// boolean,
-function ReadBoolean: boolean;
-
-/// integer, ,
-function ReadlnInteger: integer;
-/// real, ,
-function ReadlnReal: real;
-/// char, ,
-function ReadlnChar: char;
-/// string, ,
-function ReadlnString: string;
-/// boolean, ,
-function ReadlnBoolean: boolean;
-
-/// integer,
-function ReadInteger2: (integer, integer);
-/// real,
-function ReadReal2: (real, real);
-/// char,
-function ReadChar2: (char, char);
-/// string,
-function ReadString2: (string, string);
-/// integer, ,
-function ReadlnInteger2: (integer, integer);
-/// real, ,
-function ReadlnReal2: (real, real);
-/// char, ,
-function ReadlnChar2: (char, char);
-/// string, ,
-function ReadlnString2: (string, string);
-
-/// integer,
-function ReadInteger3: (integer, integer, integer);
-/// real,
-function ReadReal3: (real, real, real);
-/// char,
-function ReadChar3: (char, char, char);
-/// string,
-function ReadString3: (string, string, string);
-/// integer, ,
-function ReadlnInteger3: (integer, integer, integer);
-/// real, ,
-function ReadlnReal3: (real, real, real);
-/// char, ,
-function ReadlnChar3: (char, char, char);
-/// string, ,
-function ReadlnString3: (string, string, string);
-
-/// integer,
-function ReadInteger2(prompt: string): (integer, integer);
-/// real,
-function ReadReal2(prompt: string): (real, real);
-/// char,
-function ReadChar2(prompt: string): (char, char);
-/// string,
-function ReadString2(prompt: string): (string, string);
-/// integer, ,
-function ReadlnInteger2(prompt: string): (integer, integer);
-/// real, ,
-function ReadlnReal2(prompt: string): (real, real);
-/// char, ,
-function ReadlnChar2(prompt: string): (char, char);
-/// string, ,
-function ReadlnString2(prompt: string): (string, string);
-
-/// integer,
-function ReadInteger3(prompt: string): (integer, integer, integer);
-/// real,
-function ReadReal3(prompt: string): (real, real, real);
-/// char,
-function ReadChar3(prompt: string): (char, char, char);
-/// string,
-function ReadString3(prompt: string): (string, string, string);
-/// integer, ,
-function ReadlnInteger3(prompt: string): (integer, integer, integer);
-/// real, ,
-function ReadlnReal3(prompt: string): (real, real, real);
-/// char, ,
-function ReadlnChar3(prompt: string): (char, char, char);
-/// string, ,
-function ReadlnString3(prompt: string): (string, string, string);
-
-
-/// integer,
-function ReadInteger(prompt: string): integer;
-/// real,
-function ReadReal(prompt: string): real;
-/// char,
-function ReadChar(prompt: string): char;
-/// string,
-function ReadString(prompt: string): string;
-/// boolean,
-function ReadBoolean(prompt: string): boolean;
-
-/// integer, ,
-///
-function ReadlnInteger(prompt: string): integer;
-/// real, ,
-///
-function ReadlnReal(prompt: string): real;
-/// char, ,
-///
-function ReadlnChar(prompt: string): char;
-/// string, ,
-///
-function ReadlnString(prompt: string): string;
-/// boolean, ,
-///
-function ReadlnBoolean(prompt: string): boolean;
-
-
-///--
-procedure ReadShortString(var s: string; n: integer);
-///--
-procedure ReadShortStringFromFile(f: Text; var s: string; n: integer);
-
-///- procedure Read(f: ; a,b,...);
-/// a,b,... f
-procedure Read(f: Text);
-///--
-procedure Read(f: Text; var x: integer);
-///--
-procedure Read(f: Text; var x: real);
-///--
-procedure Read(f: Text; var x: char);
-///--
-procedure Read(f: Text; var x: string);
-///--
-procedure Read(f: Text; var x: byte);
-///--
-procedure Read(f: Text; var x: shortint);
-///--
-procedure Read(f: Text; var x: smallint);
-///--
-procedure Read(f: Text; var x: word);
-///--
-procedure Read(f: Text; var x: longword);
-///--
-procedure Read(f: Text; var x: int64);
-///--
-procedure Read(f: Text; var x: uint64);
-///--
-procedure Read(f: Text; var x: single);
-///--
-procedure Read(f: Text; var x: boolean);
-
-///- procedure Readln(f: Text; a,b,...);
-/// a,b,... f
-procedure Readln(f: Text);
-///--
-procedure Readln(f: Text; var x: string);
-
-/// integer, f
-function ReadInteger(f: Text): integer;
-/// real, f
-function ReadReal(f: Text): real;
-/// char, f
-function ReadChar(f: Text): char;
-/// string, f
-function ReadString(f: Text): string;
-/// boolean, f
-function ReadBoolean(f: Text): boolean;
-
-/// integer, f,
-///
-function ReadlnInteger(f: Text): integer;
-/// real, f,
-///
-function ReadlnReal(f: Text): real;
-/// char, f,
-///
-function ReadlnChar(f: Text): char;
-/// string, f,
-///
-function ReadlnString(f: Text): string;
-/// boolean, f,
-///
-function ReadlnBoolean(f: Text): boolean;
-
-// -----------------------------------------------------
-//>> # Write subroutines
-// -----------------------------------------------------
-///- procedure Write(a,b,...);
-/// a,b,...
-procedure Write;
-///--
-procedure Write(obj: object);
-///--
-procedure Write(obj1, obj2: object);
-///--
-procedure Write(params args: array of object);
-
-///- procedure Writeln(a,b,...);
-/// a,b,...
-///!!- Writeln(a,b,...)
-/// Writes a,b,... to standart output stream and appends newline
-procedure Writeln;
-///--
-procedure Writeln(obj: object);
-///--
-//procedure writeln(ptr: pointer);
-///--
-procedure Writeln(obj1, obj2: object);
-///--
-procedure Writeln(params args: array of object);
-
-///- procedure Write(f: ; a,b,...);
-/// a,b,... f
-procedure Write(f: Text);
-///--
-procedure Write(f: Text; val: object);
-///--
-procedure Write(f: Text; params args: array of object);
-
-///- procedure Writeln(f: Text; a,b,...);
-/// a,b,... f
-procedure Writeln(f: Text);
-///--
-procedure Writeln(f: Text; val: object);
-///--
-procedure Writeln(f: Text; params args: array of object);
-
-/// args formatstr
-procedure WriteFormat(formatstr: string; params args: array of object);
-/// args formatstr
-procedure WritelnFormat(formatstr: string; params args: array of object);
-/// args f formatstr
-procedure WriteFormat(f: Text; formatstr: string; params args: array of object);
-/// args f formatstr
-///
-procedure WritelnFormat(f: Text; formatstr: string; params args: array of object);
-
-///- procedure Print(a,b,...);
-/// a,b,... ,
-procedure Print(s: string);
-///--
-procedure Print(params args: array of object);
-///- procedure Print(f: Text; a,b,...);
-/// a,b,... f,
-procedure Print(f: Text; params args: array of object);
-///- procedure Println(a,b,...);
-/// a,b,... ,
-procedure Println(params args: array of object);
-///- procedure Println(f: Text; a,b,...);
-/// a,b,... f,
-procedure Println(f: Text; params args: array of object);
-
-// -----------------------------------------------------
-//>> # Common subroutines for files
-// -----------------------------------------------------
-///- procedure Assign(f: ; name: string);
-///
-procedure Assign(f: AbstractBinaryFile; name: string);
-///- procedure AssignFile(f: ; name: string);
-///
-procedure AssignFile(f: AbstractBinaryFile; name: string);
-///- procedure Close(f: );
-///
-procedure Close(f: AbstractBinaryFile);
-///- procedure CloseFile(f: );
-///
-procedure CloseFile(f: AbstractBinaryFile);
-///- function Eof(f: ): boolean;
-/// True,
-function Eof(f: AbstractBinaryFile): boolean;
-///- procedure Erase(f: );
-/// ,
-procedure Erase(f: AbstractBinaryFile);
-///- procedure Rename(f: ; newname: string);
-/// , , newname.
-procedure Rename(f: AbstractBinaryFile; newname: string);
-
-// -----------------------------------------------------
-//>> # Subroutines for text files
-// -----------------------------------------------------
-///--
-procedure Assign(f: Text; name: string);
-///--
-procedure AssignFile(f: Text; name: string);
-///--
-procedure Close(f: Text);
-///--
-procedure CloseFile(f: Text);
-/// Windows
-procedure Reset(f: Text);
-///
-procedure Reset(f: Text; en: Encoding);
-/// f name Windows
-procedure Reset(f: Text; name: string);
-/// f name
-procedure Reset(f: Text; name: string; en: Encoding);
-/// Windows.
-/// - , -
-procedure Rewrite(f: Text);
-/// .
-/// - , -
-procedure Rewrite(f: Text; en: Encoding);
-/// name f Windows.
-/// - , -
-procedure Rewrite(f: Text; name: string);
-/// f name f .
-/// - , -
-procedure Rewrite(f: Text; name: string; en: Encoding);
-/// Windows
-procedure Append(f: Text);
-///
-procedure Append(f: Text; en: Encoding);
-/// f name Windows
-procedure Append(f: Text; name: string);
-/// f name
-procedure Append(f: Text; name: string; en: Encoding);
-/// fname, Windows
-function OpenRead(fname: string): Text;
-/// fname,
-function OpenRead(fname: string; en: Encoding): Text;
-/// fname, Windows
-function OpenWrite(fname: string): Text;
-/// fname,
-function OpenWrite(fname: string; en: Encoding): Text;
-/// fname, Windows
-function OpenAppend(fname: string): Text;
-/// fname,
-function OpenAppend(fname: string; en: Encoding): Text;
-
-///--
-function Eof(f: Text): boolean;
-/// True,
-function Eoln(f: Text): boolean;
-/// , True,
-function SeekEof(f: Text): boolean;
-/// , True,
-function SeekEoln(f: Text): boolean;
-///
-procedure Flush(f: Text);
-///--
-procedure Erase(f: Text);
-///--
-procedure Rename(f: Text; newname: string);
-///--
-procedure TextFileInit(var f: Text);
-
-/// , Windows .
-function ReadLines(path: string): sequence of string;
-/// , .
-function ReadLines(path: string; en: Encoding): sequence of string;
-/// , Windows ,
-function ReadAllLines(path: string): array of string;
-/// , ,
-function ReadAllLines(path: string; en: Encoding): array of string;
-/// , Windows ,
-function ReadAllText(path: string): string;
-/// , ,
-function ReadAllText(path: string; en: Encoding): string;
-/// , Windows,
-procedure WriteLines(path: string; ss: sequence of string);
-/// , ,
-procedure WriteLines(path: string; ss: sequence of string; en: Encoding);
-/// , Windows,
-procedure WriteAllLines(path: string; ss: array of string);
-/// , ,
-procedure WriteAllLines(path: string; ss: array of string; en: Encoding);
-/// , Windows,
-procedure WriteAllText(path: string; s: string);
-/// , ,
-procedure WriteAllText(path: string; s: string; en: Encoding);
-
-// -----------------------------------------------------
-//>> # Subroutines for binary files
-// -----------------------------------------------------
-///- procedure Reset(f: );
-/// .
-/// - file of T, file
-procedure Reset(f: AbstractBinaryFile);
-///- procedure Reset(f: ; name: string);
-/// f name .
-/// - file of T, file
-procedure Reset(f: AbstractBinaryFile; name: string);
-///- procedure Rewrite(f: );
-/// , . , .
-/// - file of T, file
-procedure Rewrite(f: AbstractBinaryFile);
-///- procedure Rewrite(f: ; name: string);
-/// f name , .
-/// - file of T, file
-procedure Rewrite(f: AbstractBinaryFile; name: string);
-///- procedure Truncate(f: );
-/// , .
-/// - file of T, file
-procedure Truncate(f: AbstractBinaryFile);
-
-///--
-procedure Write(f: AbstractBinaryFile; params vals: array of object);
-///--
-procedure Writeln(f: AbstractBinaryFile);
-///--
-procedure Writeln(f: AbstractBinaryFile; val: object);
-///--
-procedure Writeln(f: AbstractBinaryFile; params vals: array of object);
-
-///- function FilePos(f: ): int64;
-///
-function FilePos(f: TypedFile): int64;
-///- function FileSize(f: ): int64;
-///
-function FileSize(f: TypedFile): int64;
-///- procedure Seek(f: ; n: int64);
-///
-procedure Seek(f: TypedFile; n: int64);
-///--
-procedure TypedFileInit(var f: TypedFile; ElementType: System.Type);
-///--
-procedure TypedFileInit(var f: TypedFile; ElementType: System.Type; off: integer; params offs: array of integer);
-///--
-procedure TypedFileInitWithShortString(var f: TypedFile; ElementType: System.Type; off: integer; params offs: array of integer);
-///--
-function TypedFileRead(f: TypedFile): object;
-
-///--
-function FilePos(f: BinaryFile): int64;
-///--
-function FileSize(f: BinaryFile): int64;
-///--
-procedure Seek(f: BinaryFile; n: int64);
-///--
-procedure BinaryFileInit(var f: BinaryFile);
-///--
-function BinaryFileRead(var f: BinaryFile; ElementType: System.Type): object;
-
-// -----------------------------------------------------
-//>> C # System subroutines
-// -----------------------------------------------------
-/// PascalABC.NET
-function PascalABCVersion: string;
-///
-function ParamCount: integer;
-/// i-
-function ParamStr(i: integer): string;
-///
-function GetDir: string;
-///
-procedure ChDir(s: string);
-///
-procedure MkDir(s: string);
-///
-procedure RmDir(s: string);
-
-/// . True,
-function CreateDir(s: string): boolean;
-/// . , False
-function DeleteFile(s: string): boolean;
-///
-function GetCurrentDir: string;
-/// . True,
-function RemoveDir(s: string): boolean;
-/// name, newname. True,
-function RenameFile(name, newname: string): boolean;
-/// . True,
-function SetCurrentDir(s: string): boolean;
-
-/// name newext
-function ChangeFileNameExtension(name, newext: string): string;
-/// True, name
-function FileExists(name: string): boolean;
-
-///
-procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0);
-///
-procedure Assert(cond: boolean; message: string; sourceFile: string := ''; line: integer := 0);
-
-/// diskname
-function DiskFree(diskname: string): int64;
-/// diskname
-function DiskSize(diskname: string): int64;
-/// disk. disk=0 - , disk=1 - A: , disk=2 - B: ..
-function DiskFree(disk: integer): int64;
-/// disk. disk=0 - , disk=1 - A: , disk=2 - B: ..
-function DiskSize(disk: integer): int64;
-///
-function Milliseconds: integer;
-/// Milliseconds MillisecondsDelta
-function MillisecondsDelta: integer;
-
-///
-procedure Halt;
-/// , exitCode
-procedure Halt(exitCode: integer);
-
-/// ms
-procedure Sleep(ms: integer);
-/// .exe-
-function GetEXEFileName: string;
-///
-function PointerToString(p: pointer): string;
-
-/// filename
-procedure Exec(filename: string);
-/// filename args
-procedure Exec(filename: string; args: string);
-/// filename
-procedure Execute(filename: string);
-/// filename args
-procedure Execute(filename: string; args: string);
-
-/// ,
-function EnumerateFiles(path: string; searchPattern: string := '*.*'): sequence of string;
-/// , ,
-function EnumerateAllFiles(path: string; searchPattern: string := '*.*'): sequence of string;
-///
-function EnumerateDirectories(path: string): sequence of string;
-/// ,
-function EnumerateAllDirectories(path: string): sequence of string;
-
-///-procedure New(var p: ^T);
-/// sizeof(T) p . T
-//procedure New(var p: ^T);
-
-///-procedure Dispose(var p: ^T);
-/// , p
-//procedure Dispose(var p: ^T);
-
-
-// -----------------------------------------------------
-//>> # Functions for file names
-// -----------------------------------------------------
-/// fname
-function ExtractFileName(fname: string): string;
-/// fname
-function ExtractFileExt(fname: string): string;
-/// fname
-function ExtractFilePath(fname: string): string;
-/// fname
-function ExtractFileDir(fname: string): string;
-/// fname
-function ExtractFileDrive(fname: string): string;
-/// fname
-function ExpandFileName(fname: string): string;
-
-// -----------------------------------------------------
-//>> # Math subroutines
-// -----------------------------------------------------
-///-function Sign(x: ): ;
-/// x
-function Sign(x: shortint): integer;
-///--
-function Sign(x: smallint): integer;
-///--
-function Sign(x: integer): integer;
-///--
-function Sign(x: BigInteger): integer;
-///--
-function Sign(x: longword): integer;
-///--
-function Sign(x: int64): integer;
-///--
-function Sign(x: uint64): integer;
-///--
-function Sign(x: real): integer;
-///-function Abs(x: ): ;
-/// x
-function Abs(x: integer): integer;
-///--
-function Abs(x: shortint): shortint;
-///--
-function Abs(x: smallint): smallint;
-///--
-function Abs(x: BigInteger): BigInteger;
-///--
-function Abs(x: longword): longword;
-///--
-function Abs(x: int64): int64;
-///--
-function Abs(x: uint64): uint64;
-///--
-function Abs(x: real): real;
-///--
-function Abs(x: single): single;
-/// x
-function Sin(x: real): real;
-/// x
-function Sinh(x: real): real;
-/// x
-/// !! Returns the cosine of number x
-function Cos(x: real): real;
-/// x
-function Cosh(x: real): real;
-/// x
-function Tan(x: real): real;
-/// x
-function Tanh(x: real): real;
-/// x
-function ArcSin(x: real): real;
-/// x
-function ArcCos(x: real): real;
-/// x
-function ArcTan(x: real): real;
-/// x
-function Exp(x: real): real;
-/// x
-function Ln(x: real): real;
-/// x
-function Log(x: real): real;
-/// x 2
-function Log2(x: real): real;
-/// x
-function Log10(x: real): real;
-/// x base
-function LogN(base, x: real): real;
-/// x
-function Sqrt(x: real): real;
-///-function Sqr(x: ): ;
-/// x
-function Sqr(x: integer): int64;
-///--
-function Sqr(x: shortint): integer;
-///--
-function Sqr(x: smallint): integer;
-///--
-function Sqr(x: BigInteger): BigInteger;
-///--
-function Sqr(x: longword): uint64;
-///--
-function Sqr(x: int64): int64;
-///--
-function Sqr(x: uint64): uint64;
-///--
-function Sqr(x: real): real;
-/// x y
-function Power(x, y: real): real;
-/// x n
-function Power(x: real; n: integer): real;
-/// x y
-function Power(x: BigInteger; y: integer): BigInteger;
-/// x, . ,
-/// ( ): Round(2.5)=2, Round(3.5)=4
-function Round(x: real): integer;
-/// x, digits
-function Round(x: real; digits: integer): real;
-/// x,
-function RoundBigInteger(x: real): BigInteger;
-/// x
-function Trunc(x: real): integer;
-/// x
-function TruncBigInteger(x: real): BigInteger;
-/// x
-function Int(x: real): real;
-/// x
-function Frac(x: real): real;
-/// <= x
-function Floor(x: real): integer;
-/// >= x
-function Ceil(x: real): integer;
-///
-function RadToDeg(x: real): real;
-///
-function DegToRad(x: real): real;
-
-///
-procedure Randomize;
-/// , seed. seed
-procedure Randomize(seed: integer);
-/// 0 maxValue-1
-function Random(maxValue: integer): integer;
-/// [0,maxValue)
-function Random(maxValue: real): real;
-/// a b
-function Random(a, b: integer): integer;
-/// [a,b)
-function Random(a, b: real): real;
-/// [0..1)
-function Random: real;
-/// 0 maxValue-1
-function Random2(maxValue: integer): (integer, integer);
-/// [0,maxValue)
-function Random2(maxValue: real): (real, real);
-/// a b
-function Random2(a, b: integer): (integer, integer);
-/// [a,b)
-function Random2(a, b: real): (real, real);
-/// [0..1)
-function Random2: (real, real);
-/// 0 maxValue-1
-function Random3(maxValue: integer): (integer, integer, integer);
-/// [0,maxValue)
-function Random3(maxValue: real): (real, real, real);
-/// a b
-function Random3(a, b: integer): (integer, integer, integer);
-/// [a,b)
-function Random3(a, b: real): (real, real, real);
-/// [0..1)
-function Random3: (real, real, real);
-
-///-function Max(a: , b: ): ;
-/// a,b
-function Max(a, b: byte): byte;
-///--
-function Max(a, b: shortint): shortint;
-///--
-function Max(a, b: smallint): smallint;
-///--
-function Max(a, b: word): word;
-///--
-function Max(a, b: integer): integer;
-///--
-function Max(a, b: BigInteger): BigInteger;
-///--
-function Max(a, b: longword): longword;
-///--
-function Max(a, b: int64): int64;
-///--
-function Max(a, b: uint64): uint64;
-///--
-function Max(a, b: real): real;
-///-function Min(a: , b: ): ;
-/// a,b
-function Min(a, b: byte): byte;
-///--
-function Min(a, b: shortint): shortint;
-///--
-function Min(a, b: word): word;
-///--
-function Min(a, b: smallint): smallint;
-///--
-function Min(a, b: integer): integer;
-///--
-function Min(a, b: BigInteger): BigInteger;
-///--
-function Min(a, b: longword): longword;
-///--
-function Min(a, b: int64): int64;
-///--
-function Min(a, b: uint64): uint64;
-///--
-function Min(a, b: real): real;
-///-function Odd(i: ): boolean;
-/// True, i , False
-function Odd(i: byte): boolean;
-///--
-function Odd(i: shortint): boolean;
-///--
-function Odd(i: word): boolean;
-///--
-function Odd(i: smallint): boolean;
-///--
-function Odd(i: integer): boolean;
-///--
-function Odd(i: BigInteger): boolean;
-///--
-function Odd(i: longword): boolean;
-///--
-function Odd(i: int64): boolean;
-///--
-function Odd(i: uint64): boolean;
-
-// -----------------------------------------------------
-//>> # Functions for Complex numbers
-// -----------------------------------------------------
-/// re im
-function Cplx(re, im: real): Complex;
-///
-function CplxFromPolar(magnitude, phase: real): Complex;
-///
-function Sqrt(c: Complex): Complex;
-///
-function Abs(c: Complex): Complex;
-///
-function Conjugate(c: Complex): Complex;
-///
-function Cos(c: Complex): Complex;
-///
-function Exp(c: Complex): Complex;
-///
-function Ln(c: Complex): Complex;
-///
-function Log(c: Complex): Complex;
-///
-function Log10(c: Complex): Complex;
-///
-function Power(c, power: Complex): Complex;
-///
-function Sin(c: Complex): Complex;
-
-// -----------------------------------------------------
-//>> # Subroutines for set of T
-// -----------------------------------------------------
-///- procedure Include(var s: set of T; element: T);
-/// element s
-procedure Include(var s: TypedSet; el: object);
-///- procedure Exclude(var s: set of T; element: T);
-/// element s
-procedure Exclude(var s: TypedSet; el: object);
-
-// -----------------------------------------------------
-//>> # Subroutines for char
-// -----------------------------------------------------
-/// c 1
-procedure Inc(var c: char);
-/// c n
-procedure Inc(var c: char; n: integer);
-/// c 1
-procedure Dec(var c: char);
-/// c n
-procedure Dec(var c: char; n: integer);
-/// x
-function Pred(x: char): char;
-/// x
-function Succ(x: char): char;
-/// Windows
-function ChrAnsi(a: byte): char;
-/// Windows
-function OrdAnsi(a: char): byte;
-/// Unicode
-function Chr(a: word): char;
-/// Unicode
-function Ord(a: char): word;
-/// Unicode
-function ChrUnicode(a: word): char;
-/// Unicode
-function OrdUnicode(a: char): word;
-///
-function UpperCase(ch: char): char;
-///
-function LowerCase(ch: char): char;
-///
-function UpCase(ch: char): char;
-///
-function LowCase(ch: char): char;
-
-// -----------------------------------------------------
-//>> # Subroutines for string
-// -----------------------------------------------------
-///-procedure Str(i: ; var s: string);
-/// i s
-procedure Str(i: integer; var s: string);
-///--
-procedure Str(i: longword; var s: string);
-///--
-procedure Str(i: int64; var s: string);
-///--
-procedure Str(i: uint64; var s: string);
-/// r s
-procedure Str(r: real; var s: string);
-/// r s
-procedure Str(r: single; var s: string);
-///--
-procedure Str(s1: string; var s: string);
-
-/// subs s. , 0
-function Pos(subs, s: string; from: integer := 1): integer;
-/// subs s from. , 0
-function PosEx(subs, s: string; from: integer := 1): integer;
-/// subs s. , 0
-function LastPos(subs, s: string): integer;
-/// subs s from. , 0
-function LastPos(subs, s: string; from: integer): integer;
-
-///
-function Length(s: string): integer;
-/// s n
-procedure SetLength(var s: string; n: integer);
-///--
-procedure SetLengthForShortString(var s: string; n, sz: integer);
-/// source s index
-procedure Insert(source: string; var s: string; index: integer);
-///--
-procedure InsertInShortString(source: string; var s: string; index, n: integer);
-/// s count index
-procedure Delete(var s: string; index, count: integer);
-/// s count index
-function Copy(s: string; index, count: integer): string;
-///-function Concat(s1,s2,...): string;
-/// , s1,s2,...
-function Concat(params strs: array of string): string;
-/// , s1 s2
-function Concat(s1, s2: string): string;
-///
-function LowerCase(s: string): string;
-///
-function UpperCase(s: string): string;
-/// , count ch
-function StringOfChar(ch: char; count: integer): string;
-///
-function ReverseString(s: string): string;
-/// length index
-function ReverseString(s: string; index,length: integer): string;
-/// . < 0 s1 0 s1>s2 = 0 s1=s2
-function CompareStr(s1, s2: string): integer;
-/// count s
-function LeftStr(s: string; count: integer): string;
-/// count s
-function RightStr(s: string; count: integer): string;
-
-///
-function Trim(s: string): string;
-///
-function TrimLeft(s: string): string;
-///
-function TrimRight(s: string): string;
-
-///
-function StrToInt(s: string): integer;
-///
-function StrToInt64(s: string): int64;
-///
-function StrToFloat(s: string): real;
-///
-function StrToReal(s: string): real;
-/// s value.
-/// False
-function TryStrToInt(s: string; var value: integer): boolean;
-/// s value.
-/// False
-function TryStrToInt64(s: string; var value: int64): boolean;
-/// s value.
-/// False
-function TryStrToFloat(s: string; var value: real): boolean;
-/// s value.
-/// False
-function TryStrToFloat(s: string; var value: single): boolean;
-/// s value.
-/// False
-function TryStrToReal(s: string; var value: real): boolean;
-/// s value.
-/// False
-function TryStrToSingle(s: string; var value: single): boolean;
-/// from from
-function ReadIntegerFromString(s: string; var from: integer): integer;
-/// from from
-function ReadRealFromString(s: string; var from: integer): real;
-/// from from
-function ReadWordFromString(s: string; var from: integer): string;
-/// True False
-function StringIsEmpty(s: string; var from: integer): boolean;
-/// from from .
-/// True False
-function TryReadIntegerFromString(s: string; var from: integer; var res: integer): boolean;
-/// from from .
-/// True False
-function TryReadRealFromString(s: string; var from: integer; var res: real): boolean;
-
-///-procedure Val(s: string; var value: ; var err: integer);
-/// s value.
-/// , err=0, err>0
-procedure Val(s: string; var value: integer; var err: integer);
-///--
-procedure Val(s: string; var value: shortint; var err: integer);
-///--
-procedure Val(s: string; var value: smallint; var err: integer);
-///--
-procedure Val(s: string; var value: int64; var err: integer);
-///--
-procedure Val(s: string; var value: byte; var err: integer);
-///--
-procedure Val(s: string; var value: word; var err: integer);
-///--
-procedure Val(s: string; var value: longword; var err: integer);
-///--
-procedure Val(s: string; var value: uint64; var err: integer);
-///--
-procedure Val(s: string; var value: real; var err: integer);
-///--
-procedure Val(s: string; var value: single; var err: integer);
-
-///
-function IntToStr(a: integer): string;
-///
-function IntToStr(a: int64): string;
-///
-function FloatToStr(a: real): string;
-
-/// ,
-function Format(formatstring: string; params pars: array of object): string;
-
-// -----------------------------------------------------
-//>> # Common subroutines
-// -----------------------------------------------------
-/// i 1
-procedure Inc(var i: integer);
-/// i n
-procedure Inc(var i: integer; n: integer);
-/// i 1
-procedure Dec(var i: integer);
-/// i n
-procedure Dec(var i: integer; n: integer);
-///-procedure Inc(var e: );
-/// 1
-procedure Inc(var b: byte);
-///-procedure Inc(var e: ; n: integer);
-/// n
-procedure Inc(var b: byte; n: integer);
-///-procedure Dec(var e: );
-/// 1
-procedure Dec(var b: byte);
-///-procedure Dec(var e: ; n: integer);
-/// n
-procedure Dec(var b: byte; n: integer);
-///--
-procedure Inc(var f: boolean);
-///--
-procedure Dec(var f: boolean);
-///-function Ord(a: ): ;
-/// a
-function Ord(a: integer): integer;
-///-function Ord(a: ): integer;
-/// a
-function Ord(a: longword): longword;
-///--
-function Ord(a: int64): int64;
-///--
-function Ord(a: uint64): uint64;
-///--
-function Ord(a: boolean): integer;
-
-///-function Succ(x: ): ;
-/// x
-function Succ(x: integer): integer;
-///-function Succ(x: ): ;
-/// x
-function Succ(x: byte): byte;
-///--
-function Succ(x: shortint): shortint;
-///--
-function Succ(x: smallint): smallint;
-///--
-function Succ(x: word): word;
-///--
-function Succ(x: longword): longword;
-///--
-function Succ(x: int64): int64;
-///--
-function Succ(x: uint64): uint64;
-///--
-function Succ(x: boolean): boolean;
-
-///-function Pred(x: ): ;
-/// x
-function Pred(x: integer): integer;
-///-function Pred(x: ): ;
-/// x
-function Pred(x: byte): byte;
-///--
-function Pred(x: shortint): shortint;
-///--
-function Pred(x: smallint): smallint;
-///--
-function Pred(x: word): word;
-///--
-function Pred(x: longword): longword;
-///--
-function Pred(x: int64): int64;
-///--
-function Pred(x: uint64): uint64;
-///--
-function Pred(x: boolean): boolean;
-
-///
-procedure Swap(var a, b: T);
-/// True,
-function Eoln: boolean;
-/// True,
-function Eof: boolean;
-
-// -----------------------------------------------------
-//>> # Subroutines for array of T
-// -----------------------------------------------------
-///- function Low(a: array of T): integer;
-/// 0
-function Low(i: System.Array): integer;
-///- function High(a: array of T): integer;
-///
-function High(i: System.Array): integer;
-///- function Length(a: array of T): integer;
-///
-function Length(a: System.Array): integer;
-///- function Length(a: array of T; dim: integer): integer;
-/// dim
-function Length(a: System.Array; dim: integer): integer;
-///- procedure SetLength(var a: array of T);
-/// .
-//procedure SetLength(var a: System.Array);
-///- procedure SetLength(var a: array of T; n1,n2,...: integer);
-/// n- .
-//procedure SetLength(var a: System.Array);
-///- function Copy(a: array of T): array of T;
-///
-function Copy(a: System.Array): System.Array;
-///
-procedure Sort(a: array of T);
-/// , cmp
-procedure Sort(a: array of T; cmp: (T,T)->integer);
-/// , less
-procedure Sort(a: array of T; less: (T,T)->boolean);
-///
-procedure Sort(l: List);
-/// , cmp
-procedure Sort(l: List; cmp: (T,T)->integer);
-/// , less
-procedure Sort(l: List; less: (T,T)->boolean);
-///
-procedure Reverse(a: array of T);
-/// count, index
-procedure Reverse(a: array of T; index, count: integer);
-///
-procedure Reverse(a: List);
-/// count, index
-procedure Reverse(a: List; index, count: integer);
-///
-procedure Shuffle(a: array of T);
-///
-procedure Shuffle(l: List);
-
-// -----------------------------------------------------
-//>> # Subroutines for sequence generation
-// -----------------------------------------------------
-/// a b
-function Range(a, b: integer): sequence of integer;
-/// c1 c2
-function Range(c1, c2: char): sequence of char;
-/// [a,b] n ( Partition)
-function Range(a, b: real; n: integer): sequence of real;
-/// [a,b] n
-function Partition(a, b: real; n: integer): sequence of real;
-/// a b step
-function Range(a, b, step: integer): sequence of integer;
-///
-function Seq(params a: array of T): sequence of T;
-/// n
-function SeqRandom(n: integer := 10; a: integer := 0; b: integer := 100): sequence of integer;
-/// n
-function SeqRandomInteger(n: integer := 10; a: integer := 0; b: integer := 100): sequence of integer;
-/// n
-function SeqRandomReal(n: integer := 10; a: real := 0; b: real := 10): sequence of real;
-/// count , f(i)
-function SeqGen(count: integer; f: integer->T): sequence of T;
-/// count , f(i), i=from
-function SeqGen(count: integer; f: integer->T; from: integer): sequence of T;
-/// count , first, next
-function SeqGen(count: integer; first: T; next: T->T): sequence of T;
-/// count , first second,
-/// next
-function SeqGen(count: integer; first, second: T; next: (T,T) ->T): sequence of T;
-/// first,
-/// next pred
-function SeqWhile(first: T; next: T->T; pred: T->boolean): sequence of T;
-/// , first second,
-/// next pred
-function SeqWhile(first, second: T; next: (T,T) ->T; pred: T->boolean): sequence of T;
-/// count x
-function SeqFill(count: integer; x: T): sequence of T;
-
-/// n ,
-function ReadSeqInteger(n: integer): sequence of integer;
-/// n ,
-function ReadSeqReal(n: integer): sequence of real;
-/// n ,
-function ReadSeqString(n: integer): sequence of string;
-
-/// n ,
-function ReadSeqInteger(prompt: string; n: integer): sequence of integer;
-/// n ,
-function ReadSeqReal(prompt: string; n: integer): sequence of real;
-/// n ,
-function ReadSeqString(prompt: string; n: integer): sequence of string;
-
-/// ,
-function ReadSeqIntegerWhile(cond: integer->boolean): sequence of integer;
-/// ,
-function ReadSeqRealWhile(cond: real->boolean): sequence of real;
-/// ,
-function ReadSeqStringWhile(cond: string->boolean): sequence of string;
-
-/// ,
-function ReadSeqIntegerWhile(prompt: string; cond: integer->boolean): sequence of integer;
-/// ,
-function ReadSeqRealWhile(prompt: string; cond: real->boolean): sequence of real;
-/// ,
-function ReadSeqStringWhile(prompt: string; cond: string->boolean): sequence of string;
-
-// -----------------------------------------------------
-//>> # Subroutines for array of T generation
-// -----------------------------------------------------
-/// ,
-function Arr(params a: array of T): array of T;
-/// ,
-function Arr(a: sequence of T): array of T;
-/// n,
-function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
-/// n,
-function ArrRandomInteger(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
-/// n,
-function ArrRandomReal(n: integer := 10; a: real := 0; b: real := 10): array of real;
-/// count , gen(i)
-function ArrGen(count: integer; gen: integer->T): array of T;
-/// count , gen(i), i=from
-function ArrGen(count: integer; gen: integer->T; from: integer): array of T;
-/// count , first, next
-function ArrGen(count: integer; first: T; next: T->T): array of T;
-/// count , first second, next
-function ArrGen(count: integer; first, second: T; next: (T,T) ->T): array of T;
-/// count x
-function ArrFill(count: integer; x: T): array of T;
-
-/// n ,
-function ReadArrInteger(n: integer): array of integer;
-/// n ,
-function ReadArrReal(n: integer): array of real;
-/// n ,
-function ReadArrString(n: integer): array of string;
-
-/// n ,
-function ReadArrInteger(prompt: string; n: integer): array of integer;
-/// n ,
-function ReadArrReal(prompt: string; n: integer): array of real;
-/// n ,
-function ReadArrString(prompt: string; n: integer): array of string;
-
-// -----------------------------------------------------
-//>> # Subroutines for matrixes
-// -----------------------------------------------------
-/// m x n,
-function Matr(m,n: integer; params data: array of T): array [,] of T;
-/// m x n,
-function MatrRandom(m: integer := 5; n: integer := 5; a: integer := 0; b: integer := 100): array [,] of integer;
-/// m x n,
-function MatrRandomInteger(m: integer := 5; n: integer := 5; a: integer := 0; b: integer := 100): array [,] of integer;
-/// m x n,
-function MatrRandomReal(m: integer := 5; n: integer := 5; a: real := 0; b: real := 10): array [,] of real;
-/// m x n, x
-function MatrFill(m, n: integer; x: T): array [,] of T;
-/// m x n, x
-function MatrGen(m, n: integer; gen: (integer,integer)->T): array [,] of T;
-///
-function Transpose(a: array [,] of T): array [,] of T;
-/// m n ,
-function ReadMatrInteger(m, n: integer): array [,] of integer;
-/// m n ,
-function ReadMatrReal(m, n: integer): array [,] of real;
-
-
-// -----------------------------------------------------
-//>> # Subroutines for tuple generation
-// -----------------------------------------------------
-///- function Rec(x1: T1, x2: T2,...): (T1,T2,...);
-///
-function Rec(x1: T1; x2: T2): System.Tuple;
-///--
-function Rec(x1: T1; x2: T2; x3: T3): (T1, T2, T3);
-///--
-function Rec(x1: T1; x2: T2; x3: T3; x4: T4): (T1, T2, T3, T4);
-///--
-function Rec(x1: T1; x2: T2; x3: T3; x4: T4; x5: T5): (T1, T2, T3, T4, T5);
-///--
-function Rec(x1: T1; x2: T2; x3: T3; x4: T4; x5: T5; x6: T6): (T1, T2, T3, T4, T5, T6);
-///--
-function Rec(x1: T1; x2: T2; x3: T3; x4: T4; x5: T5; x6: T6; x7: T7): (T1, T2, T3, T4, T5, T6, T7);
-
-// -----------------------------------------------------
-//>> Lst, LLst, HSet, SSet, Dict, KV # Short functions Lst, HSet, SSet, Dict, KV
-// -----------------------------------------------------
-/// ,
-function Lst(params a: array of T): List;
-/// ,
-function Lst(a: sequence of T): List;
-/// ,
-function LLst(params a: array of T): LinkedList;
-/// ,
-function LLst(a: sequence of T): LinkedList;
-/// ,
-function HSet(params a: array of T): HashSet;
-/// ,
-function HSet(a: sequence of T): HashSet;
-/// ,
-function SSet(params a: array of T): SortedSet;
-/// ,
-function SSet(a: sequence of T): SortedSet;
-/// (, )
-function Dict(params pairs: array of KeyValuePair): Dictionary;
-/// (, )
-function Dict(params pairs: array of (TKey, TVal)): Dictionary;
-/// (, )
-function KV(key: TKey; value: TVal): KeyValuePair;
-
-
-// -----------------------------------------------------
-//>> # Infinite sequences
-// -----------------------------------------------------
-// 2016: Iterate, Step, Repeat, Cycle
-
-// , next
-///--
-function Iterate(Self: T; next: T->T): sequence of T; extensionmethod;
-begin
- Result := Iterate(Self, next);
-end;
-
-// , , next
-///--
-function Iterate(Self, second: T; next: (T,T) ->T): sequence of T; extensionmethod;
-begin
- Result := Iterate(Self, second, next);
-end;
-
-/// 1
-function Step(Self: integer): sequence of integer; extensionmethod;
-begin
- while True do
- begin
- yield Self;
- Self += 1;
- end;
-end;
-
-/// step
-function Step(Self: integer; step: integer): sequence of integer; extensionmethod;
-begin
- while True do
- begin
- yield Self;
- Self += step;
- end;
-end;
-
-/// step
-function Step(Self: real; step: real): sequence of real; extensionmethod;
-begin
- while True do
- begin
- yield Self;
- Self += step;
- end;
-end;
-
-// ,
-///--
-function Repeat(Self: T): sequence of T; extensionmethod;
-begin
- while True do
- yield Self;
-end;
-
-///
-function Cycle(Self: sequence of T): sequence of T; extensionmethod;
-begin
- while True do
- begin
- foreach var x in Self do
- yield x;
- end;
-end;
-
-// -----------------------------------------------------
-//>> XXX - ! # XXX
-// -----------------------------------------------------
-type
- AdjGroupClass = class
- private
- cur: T;
- enm: IEnumerator;
- fin: boolean;
- public
- constructor Create(a: sequence of T);
- begin
- enm := a.GetEnumerator();
- fin := enm.MoveNext;
- if fin then
- cur := enm.Current;
- end;
-
- function TakeGroup: sequence of T;
- begin
- yield cur;
- fin := enm.movenext;
- while fin do
- begin
- if enm.current = cur then
- yield enm.current
- else
- begin
- cur := enm.Current;
- break;
- end;
- fin := enm.movenext;
- end;
- end;
- end;
-
-//------------------------------------------------------------------------------
-//>> Print # Print for elementary types
-//------------------------------------------------------------------------------
-function Print(Self: integer): integer; extensionmethod;
-begin
- PABCSystem.Print(Self);
- Result := Self;
-end;
-
-function Print(Self: real): real; extensionmethod;
-begin
- PABCSystem.Print(Self);
- Result := Self;
-end;
-
-function Print(Self: char): char; extensionmethod;
-begin
- PABCSystem.Print(Self);
- Result := Self;
-end;
-
-function Print(Self: boolean): boolean; extensionmethod;
-begin
- PABCSystem.Print(Self);
- Result := Self;
-end;
-
-function Print(Self: BigInteger): BigInteger; extensionmethod;
-begin
- PABCSystem.Print(Self);
- Result := Self;
-end;
-
-function Println(Self: integer): integer; extensionmethod;
-begin
- PABCSystem.Println(Self);
- Result := Self;
-end;
-
-function Println(Self: real): real; extensionmethod;
-begin
- PABCSystem.Println(Self);
- Result := Self;
-end;
-
-function Println(Self: char): char; extensionmethod;
-begin
- PABCSystem.Println(Self);
- Result := Self;
-end;
-
-function Println(Self: boolean): boolean; extensionmethod;
-begin
- PABCSystem.Println(Self);
- Result := Self;
-end;
-
-function Println(Self: BigInteger): BigInteger; extensionmethod;
-begin
- PABCSystem.Println(Self);
- Result := Self;
-end;
-
-
-
-//------------------------------------------------------------------------------
-//>> # Extension methods for sequence of T
-//------------------------------------------------------------------------------
-/// , delim
-function Print(Self: sequence of T; delim: string): sequence of T; extensionmethod;
-begin
- var g := Self.GetEnumerator();
- if g.MoveNext() then
- Write(g.Current);
- while g.MoveNext() do
- if delim <> '' then
- Write(delim, g.Current)
- else Write(g.Current);
- Result := Self;
-end;
-
-/// ,
-function Print(Self: sequence of T): sequence of T; extensionmethod;
-begin
- if typeof(T) = typeof(char) then
- Result := Self.Print('')
- else
- Result := Self.Print(PrintDelimDefault);
-end;
-
-/// , delim ,
-function Println(Self: sequence of T; delim: string): sequence of T; extensionmethod;
-begin
- Self.Print(delim);
- Writeln;
- Result := Self;
-end;
-
-/// , ,
-function Println(Self: sequence of T): sequence of T; extensionmethod;
-begin
- if typeof(T) = typeof(char) then
- Result := Self.Println('')
- else
- Result := Self.Println(PrintDelimDefault);
-end;
-
-///
-function WriteLines(Self: sequence of string; fname: string): sequence of string; extensionmethod;
-begin
- WriteLines(fname, Self);
- Result := Self
-end;
-
-/// ,
-function PrintLines(Self: sequence of T): sequence of T; extensionmethod;
-begin
- Self.Println(NewLine);
- Result := Self
-end;
-
-/// , map
-function PrintLines(Self: sequence of T; map: T->T1): sequence of T; extensionmethod;
-begin
- Self.Select(map).Println(NewLine);
- Result := Self
-end;
-
-/// , , delim
-function JoinIntoString(Self: sequence of T; delim: string): string; extensionmethod;
-begin
- var g := Self.GetEnumerator();
- var sb := new System.Text.StringBuilder('');
- if g.MoveNext() then
- sb.Append(g.Current.ToString());
- while g.MoveNext() do
- sb.Append(delim + g.Current.ToString());
- Result := sb.ToString;
-end;
-
-/// , ,
-function JoinIntoString(Self: sequence of T): string; extensionmethod;
-begin
- if typeof(T) = typeof(char) then
- Result := Self.JoinIntoString('')
- else Result := Self.JoinIntoString(' ');
-end;
-
-///
-procedure ForEach(Self: sequence of T; action: T -> ()); extensionmethod;
-begin
- foreach x: T in Self do
- action(x);
-end;
-
-/// ,
-procedure ForEach(Self: sequence of T; action: (T,integer) -> ()); extensionmethod;
-begin
- var i := 0;
- foreach x: T in Self do
- begin
- action(x, i);
- i += 1;
- end;
-end;
-
-///
-function Sorted(Self: sequence of T): sequence of T; extensionmethod;
-begin
- Result := Self.OrderBy(x -> x);
-end;
-
-///
-function SortedDescending(Self: sequence of T): sequence of T; extensionmethod;
-begin
- Result := Self.OrderByDescending(x -> x);
-end;
-
-///
-function Order(Self: sequence of T): sequence of T; extensionmethod;
-begin
- Result := Self.OrderBy(x -> x);
-end;
-
-///
-function OrderDescending(Self: sequence of T): sequence of T; extensionmethod;
-begin
- Result := Self.OrderByDescending(x -> x);
-end;
-
-/// HashSet
-function ToHashSet(Self: sequence of T): HashSet; extensionmethod;
-begin
- Result := new HashSet(Self);
-end;
-
-/// SortedSet
-function ToSortedSet(Self: sequence of T): SortedSet; extensionmethod;
-begin
- Result := new SortedSet(Self);
-end;
-
-/// LinkedList
-function ToLinkedList(Self: sequence of T): LinkedList; extensionmethod;
-begin
- Result := new LinkedList(Self);
-end;
-
-// 2016: MinBy, MaxBy, TakeLast, Slice, Cartesian, SplitAt,
-// Partition, ZipTuple, UnZipTuple, Interleave, Numerate, Tabulate, Pairwise, Batch
-
-///
-function MinBy(Self: sequence of T; selector: T->TKey): T; extensionmethod;
-begin
- if selector = nil then
- raise new ArgumentNullException('selector');
- if not Self.Any() then
- raise new InvalidOperationException('Empty sequence');
-
- var comp := Comparer.Default;
- Result := Self.Aggregate((min, x)-> comp.Compare(selector(x), selector(min)) < 0 ? x : min);
-end;
-
-///
-function MaxBy(Self: sequence of T; selector: T->TKey): T; extensionmethod;
-begin
- if selector = nil then
- raise new ArgumentNullException('selector');
- if not Self.Any() then
- raise new InvalidOperationException('Empty sequence');
-
- var comp := Comparer.Default;
- Result := Self.Aggregate((max, x)-> comp.Compare(selector(x), selector(max)) > 0 ? x : max);
-end;
-
-///
-function LastMinBy(Self: sequence of T; selector: T->TKey): T; extensionmethod;
-begin
- if selector = nil then
- raise new ArgumentNullException('selector');
- if not Self.Any() then
- raise new InvalidOperationException('Empty sequence');
-
- var comp := Comparer.Default;
- Result := Self.Aggregate((min, x)-> comp.Compare(selector(x), selector(min)) <= 0 ? x : min);
-end;
-
-///
-function LastMaxBy(Self: sequence of T; selector: T->TKey): T; extensionmethod;
-begin
- if selector = nil then
- raise new ArgumentNullException('selector');
- if not Self.Any() then
- raise new InvalidOperationException('Empty sequence');
-
- var comp := Comparer.Default;
- Result := Self.Aggregate((max, x)-> comp.Compare(selector(x), selector(max)) >= 0 ? x : max);
-end;
-
-/// count
-function TakeLast(Self: sequence of T; count: integer): sequence of T; extensionmethod;
-begin
- Result := Self.Reverse.Take(count).Reverse;
-end;
-
-/// count
-function SkipLast(self: sequence of T; count: integer := 1): sequence of T; extensionmethod;
-begin
- Result := Self.Reverse.Skip(count).Reverse;
-end;
-
-///
-function Cartesian(Self: sequence of T; b: sequence of T1): sequence of (T, T1); extensionmethod;
-begin
- if b = nil then
- raise new System.ArgumentNullException('b');
-
- foreach var x in Self do
- foreach var y in b do
- yield (x, y)
-end;
-
-///
-function Cartesian(Self: sequence of T; b: sequence of T1; func: (T,T1)->T2): sequence of T2; extensionmethod;
-begin
- if b = nil then
- raise new System.ArgumentNullException('b');
-
- foreach var x in Self do
- foreach var y in b do
- yield func(x, y)
-end;
-
-/// ind
-function SplitAt(Self: sequence of T; ind: integer): (sequence of T, sequence of T); extensionmethod;
-begin
- Result := (Self.Take(ind), Self.Skip(ind));
-end;
-
-// ToDo: TakeWhile
-
-// ToDo: SequenceCompare
-
-///
-function Partition(Self: sequence of T; cond: T->boolean): (sequence of T, sequence of T); extensionmethod;
-begin
- Result := (Self.Where(cond), Self.Where(x -> not cond(x)));
-end;
-
-/// ,
-function Partition(Self: sequence of T; cond: (T,integer)->boolean): (sequence of T, sequence of T); extensionmethod;
-begin
- Result := (Self.Where(cond), Self.Where((x, i)-> not cond(x, i)));
-end;
-
-///
-function ZipTuple(Self: sequence of T; a: sequence of T1): sequence of (T, T1); extensionmethod;
-begin
- if a = nil then
- raise new System.ArgumentNullException('a');
- Result := Self.Zip(a, (x, y)-> (x, y));
-end;
-
-///
-function ZipTuple(Self: sequence of T; a: sequence of T1; b: sequence of T2): sequence of (T, T1, T2); extensionmethod;
-begin
- if a = nil then
- raise new System.ArgumentNullException('a');
- if b = nil then
- raise new System.ArgumentNullException('b');
- Result := Self.Zip(a, (x, y)-> (x, y)).Zip(b, (p, z)-> (p[0], p[1], z));
-end;
-
-///
-function ZipTuple(Self: sequence of T; a: sequence of T1; b: sequence of T2; c: sequence of T3): sequence of (T, T1, T2, T3); extensionmethod;
-begin
- if a = nil then
- raise new System.ArgumentNullException('a');
- if b = nil then
- raise new System.ArgumentNullException('b');
- if c = nil then
- raise new System.ArgumentNullException('c');
- Result := Self.Zip(a, (x, y)-> (x, y)).Zip(b, (p, z)-> (p[0], p[1], z)).Zip(c, (p, z)-> (p[0], p[1], p[2], z));
-end;
-
-///
-function UnZipTuple(Self: sequence of (T, T1)): (sequence of T, sequence of T1); extensionmethod;
-begin
- Result := (Self.Select(x -> x[0]), Self.Select(x -> x[1]))
-end;
-
-///
-function UnZipTuple(Self: sequence of (T, T1, T2)): (sequence of T, sequence of T1, sequence of T2); extensionmethod;
-begin
- Result := (Self.Select(x -> x[0]), Self.Select(x -> x[1]), Self.Select(x -> x[2]))
-end;
-
-///
-function UnZipTuple(Self: sequence of (T, T1, T2, T3)): (sequence of T, sequence of T1, sequence of T2, sequence of T3); extensionmethod;
-begin
- Result := (Self.Select(x -> x[0]), Self.Select(x -> x[1]), Self.Select(x -> x[2]), Self.Select(x -> x[3]))
-end;
-
-// ToDo - UnZipTuple -
-
-///
-function Interleave(Self: sequence of T; a: sequence of T): sequence of T; extensionmethod;
-begin
- if a = nil then
- raise new System.ArgumentNullException('a');
- Result := Self.ZipTuple(a).SelectMany(x -> Seq(x[0], x[1]))
-end;
-
-///
-function Interleave(Self: sequence of T; a, b: sequence of T): sequence of T; extensionmethod;
-begin
- if a = nil then
- raise new System.ArgumentNullException('a');
- if b = nil then
- raise new System.ArgumentNullException('b');
- Result := Self.ZipTuple(a, b).SelectMany(x -> Seq(x[0], x[1], x[2]))
-end;
-
-///
-function Interleave(Self: sequence of T; a, b, c: sequence of T): sequence of T; extensionmethod;
-begin
- if a = nil then
- raise new System.ArgumentNullException('a');
- if b = nil then
- raise new System.ArgumentNullException('b');
- if c = nil then
- raise new System.ArgumentNullException('c');
- Result := Self.ZipTuple(a, b, c).SelectMany(x -> Seq(x[0], x[1], x[2], x[3]))
-end;
-
-///
-function Numerate(Self: sequence of T): sequence of (integer, T); extensionmethod;
-begin
- Result := 1.Step.ZipTuple(Self);
-end;
-
-/// from
-function Numerate(Self: sequence of T; from: integer): sequence of (integer, T); extensionmethod;
-begin
- Result := from.Step.ZipTuple(Self);
-end;
-
-///
-function Tabulate(Self: sequence of T; F: T->T1): sequence of (T, T1); extensionmethod;
-begin
- Result := Self.Select(x -> (x, f(x)));
-end;
-
-///
-function Pairwise(Self: sequence of T): sequence of (T, T); extensionmethod;
-begin
- var previous: T;
- var it := Self.GetEnumerator();
- if (it.MoveNext()) then
- previous := it.Current;
-
- while (it.MoveNext()) do
- begin
- yield (previous, it.Current);
- previous := it.Current;
- end
-end;
-
-/// , func
-function Pairwise(Self: sequence of T; func: (T,T)->Res): sequence of Res; extensionmethod;
-begin
- var previous: T;
- var it := Self.GetEnumerator();
- if (it.MoveNext()) then
- previous := it.Current;
-
- while (it.MoveNext()) do
- begin
- yield func(previous, it.Current);
- previous := it.Current;
- end
- // Result := Self.ZipTuple(Self.Skip(1)).Select(x->func(x[0],x[1]));
-end;
-
-/// size
-function Batch(Self: sequence of T; size: integer): sequence of sequence of T; extensionmethod;
-begin
- Result := SeqWhile(Self, v -> v.Skip(size), v -> v.Count > 0).Select(v -> v.Take(size))
-end;
-
-/// size
-function Batch(Self: sequence of T; size: integer; proj: Func, Res>): sequence of Res; extensionmethod;
-begin
- Result := SeqWhile(Self, v -> v.Skip(size), v -> v.Count > 0).Select(v -> v.Take(size)).Select(ss -> proj(ss));
-end;
-
-///--
-function SliceSeqImpl(Self: sequence of T; from, step, count: integer): sequence of T;
-begin
- if step <= 0 then
- raise new ArgumentException(GetTranslation(PARAMETER_STEP_MUST_BE_GREATER_0));
-
- if from < 0 then
- raise new ArgumentException(GetTranslation(PARAMETER_FROM_OUT_OF_RANGE));
-
- Result := Self.Skip(from).Where((x, i)-> i mod step = 0)
-end;
-
-/// from step > 0
-function Slice(Self: sequence of T; from, step: integer): sequence of T; extensionmethod;
-begin
- if step <= 0 then
- raise new ArgumentException(GetTranslation(PARAMETER_STEP_MUST_BE_GREATER_0));
-
- if from < 0 then
- raise new ArgumentException(GetTranslation(PARAMETER_FROM_OUT_OF_RANGE));
-
- Result := Self.Skip(from).Where((x, i)-> i mod step = 0)
-end;
-
-/// from step > 0 count
-function Slice(Self: sequence of T; from, step, count: integer): sequence of T; extensionmethod;
-begin
- if step <= 0 then
- raise new ArgumentException(GetTranslation(PARAMETER_STEP_MUST_BE_GREATER_0));
-
- if from < 0 then
- raise new ArgumentException(GetTranslation(PARAMETER_FROM_OUT_OF_RANGE));
-
- Result := Self.Skip(from).Where((x, i)-> i mod step = 0).Take(count)
-end;
-
-// 2016: Incremental
-///--
-function IncrementalSeq(Self: sequence of integer): sequence of integer;
-begin
- var iter := Self.GetEnumerator();
- if iter.MoveNext() then
- begin
- var prevItem := iter.Current;
- while iter.MoveNext() do
- begin
- var nextItem := iter.Current;
- yield nextItem - prevItem;
- prevItem := nextItem;
- end
- end
-end;
-
-///--
-function IncrementalSeq(Self: sequence of real): sequence of real;
-begin
- var iter := Self.GetEnumerator();
- if iter.MoveNext() then
- begin
- var prevItem := iter.Current;
- while iter.MoveNext() do
- begin
- var nextItem := iter.Current;
- yield nextItem - prevItem;
- prevItem := nextItem;
- end
- end
-end;
-
-///
-function Incremental(Self: sequence of integer): sequence of integer; extensionmethod;
-begin
- Result := IncrementalSeq(Self);
-end;
-
-///
-function Incremental(Self: array of integer): sequence of integer; extensionmethod;
-begin
- Result := IncrementalSeq(Self);
-end;
-
-///
-function Incremental(Self: List): sequence of integer; extensionmethod;
-begin
- Result := IncrementalSeq(Self);
-end;
-
-///
-function Incremental(Self: LinkedList): sequence of integer; extensionmethod;
-begin
- Result := IncrementalSeq(Self);
-end;
-
-///
-function Incremental(Self: sequence of real): sequence of real; extensionmethod;
-begin
- Result := IncrementalSeq(Self);
-end;
-
-///
-function Incremental(Self: array of real): sequence of real; extensionmethod;
-begin
- Result := IncrementalSeq(Self);
-end;
-
-///
-function Incremental(Self: List): sequence of real; extensionmethod;
-begin
- Result := IncrementalSeq(Self);
-end;
-
-///
-function Incremental(Self: LinkedList): sequence of real; extensionmethod;
-begin
- Result := IncrementalSeq(Self);
-end;
-
-/// . func
-function Incremental(Self: sequence of T; func: (T,T)->T1): sequence of T1; extensionmethod;
-begin
- var iter := Self.GetEnumerator();
- if iter.MoveNext() then
- begin
- var prevItem := iter.Current;
- while iter.MoveNext() do
- begin
- var nextItem := iter.Current;
- yield func(prevItem, nextItem);
- prevItem := nextItem;
- end
- end
-end;
-
-/// . func
-function Incremental(Self: sequence of T; func: (T,T,integer)->T1): sequence of T1; extensionmethod;
-begin
- var iter := Self.GetEnumerator();
- if iter.MoveNext() then
- begin
- var ind := 0;
- var prevItem := iter.Current;
- while iter.MoveNext() do
- begin
- var nextItem := iter.Current;
- ind += 1;
- yield func(prevItem, nextItem, ind);
- prevItem := nextItem;
- end
- end
-end;
-
-/// ,
-function AdjacentGroup(Self: sequence of T): sequence of array of T; extensionmethod;
-begin
- var c := new AdjGroupClass(Self);
- while c.fin do
- yield c.TakeGroup().ToArray;
-end;
-
-// ToDo AdjacentGroup
-
-// -----------------------------------------------------
-//>> # Extension methods for List T
-// -----------------------------------------------------
-
-///
-function Shuffle(Self: List): List; extensionmethod;
-begin
- var n := Self.Count;
- for var i := 0 to n - 1 do
- begin
- var r := PABCSystem.Random(n);
- var v := Self[i];
- Self[i] := Self[r];
- Self[r] := v;
- end;
- Result := Self;
-end;
-
-/// . , -1
-function AdjacentFind(Self: IList; start: integer := 0): integer; extensionmethod;
-begin
- Result := -1;
- for var i := start to Self.Count - 2 do
- if Self[i] = Self[i + 1] then
- begin
- Result := i;
- exit;
- end;
-end;
-
-/// , eq, . , -1
-function AdjacentFind(Self: IList; eq: (T,T)->boolean; start: integer := 0): integer; extensionmethod;
-begin
- Result := -1;
- for var i := start to Self.Count - 2 do
- if eq(Self[i], Self[i + 1]) then
- begin
- Result := i;
- exit;
- end;
-end;
-
-/// index
-function IndexMin(Self: IList; index: integer := 0): integer; extensionmethod;where T: IComparable;
-begin
- var min := Self[index];
- Result := index;
- for var i := index + 1 to Self.Count - 1 do
- if Self[i].CompareTo(min) < 0 then
- begin
- Result := i;
- min := Self[i];
- end;
-end;
-
-/// index
-function IndexMax(self: IList; index: integer := 0): integer; extensionmethod;where T: System.IComparable;
-begin
- var max := Self[index];
- Result := index;
- for var i := index + 1 to Self.Count - 1 do
- if Self[i].CompareTo(max) > 0 then
- begin
- Result := i;
- max := Self[i];
- end;
-end;
-
-///
-function LastIndexMin(Self: IList): integer; extensionmethod;where T: System.IComparable;
-begin
- var min := Self[Self.Count - 1];
- Result := Self.Count - 1;
- for var i := Self.Count - 2 downto 0 do
- if Self[i].CompareTo(min) < 0 then
- begin
- Result := i;
- min := Self[i];
- end;
-end;
-
-/// [0,index-1]
-function LastIndexMin(Self: IList; index: integer): integer; extensionmethod;where T: System.IComparable;
-begin
- var min := Self[index];
- Result := index;
- for var i := index - 1 downto 0 do
- if Self[i].CompareTo(min) < 0 then
- begin
- Result := i;
- min := Self[i];
- end;
-end;
-
-///
-function LastIndexMax(Self: IList): integer; extensionmethod;where T: System.IComparable;
-begin
- var max := Self[Self.Count - 1];
- Result := Self.Count - 1;
- for var i := Self.Count - 2 downto 0 do
- if Self[i].CompareTo(max) > 0 then
- begin
- Result := i;
- max := Self[i];
- end;
-end;
-
-/// [0,index-1]
-function LastIndexMax(Self: IList; index: integer): integer; extensionmethod;where T: System.IComparable;
-begin
- var max := Self[index];
- Result := index;
- for var i := index - 1 downto 0 do
- if Self[i].CompareTo(max) > 0 then
- begin
- Result := i;
- max := Self[i];
- end;
-end;
-
-///
-procedure Replace(Self: IList; oldValue, newValue: T); extensionmethod;
-begin
- for var i := 0 to Self.Count - 1 do
- if Self[i] = oldValue then
- Self[i] := newValue;
-end;
-
-///
-procedure Transform(Self: IList; f: T->T); extensionmethod;
-begin
- for var i := 0 to Self.Count - 1 do
- Self[i] := f(Self[i]);
-end;
-
-///
-procedure Transform(Self: IList; f: (T,integer)->T); extensionmethod;
-begin
- for var i := 0 to Self.Count - 1 do
- Self[i] := f(Self[i],i);
-end;
-
-/// ,
-procedure Fill(Self: IList; f: integer->T); extensionmethod;
-begin
- for var i := 0 to Self.Count - 1 do
- Self[i] := f(i);
-end;
-
-///--
-function CreateSliceFromListInternal(Self: List; from, step, count: integer): List;
-begin
- Result := new List(count);
-
- var f := from;
- loop count do
- begin
- Result.Add(Self[f]);
- f += step;
- end;
-end;
-
-///--
-procedure CorrectCountForSlice(Len, from, step: integer; var count: integer);
-begin
- if step = 0 then
- raise new ArgumentException(GetTranslation(PARAMETER_STEP_MUST_BE_NOT_EQUAL_0));
-
- if count < 0 then
- raise new ArgumentException(GetTranslation(PARAMETER_COUNT_MUST_BE_GREATER_0));
-
- if (from < 0) or (from > Len - 1) then
- raise new ArgumentException(GetTranslation(PARAMETER_FROM_OUT_OF_RANGE));
-
- var cnt := step > 0 ? Len - from : from + 1;
- var cntstep := (cnt - 1) div abs(step) + 1;
- if count > cntstep then
- count := cntstep;
-end;
-
-///--
-function SliceListImpl(Self: List; from, step, count: integer): List;
-begin
- CorrectCountForSlice(Self.Count, from, step, count);
- Result := CreateSliceFromListInternal(Self, from, step, count);
-end;
-
-/// from step
-function Slice(Self: List |