administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

a.Cartesian(n) -> a.CartesianPower(n)

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2023-04-04 10:29:56 +03:00
parent 110a19ff90
commit 8382dc2b20
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
bin/Lib/PABCSystem.pas
View file

@ -12182,7 +12182,7 @@ begin
end;
/// Возвращает n-тую декартову степень множества элементов, заданного массивом
function Cartesian<T>(Self: array of T; n: integer): sequence of array of T; extensionmethod;
function CartesianPower<T>(Self: array of T; n: integer): sequence of array of T; extensionmethod;
begin
var r := new integer[n];
var ar1 := new T[n];
@ -12211,7 +12211,16 @@ begin
end;
end;
///--
function Cartesian<T>(Self: array of T; n: integer): sequence of array of T; extensionmethod := Self.CartesianPower(n);
/// Возвращает n-тую декартову степень множества элементов, заданного последовательностью
function CartesianPower<T>(Self: sequence of T; n: integer): sequence of array of T; extensionmethod;
begin
Result := Self.ToArray.Cartesian(n);
end;
///--
function Cartesian<T>(Self: sequence of T; n: integer): sequence of array of T; extensionmethod;
begin
Result := Self.ToArray.Cartesian(n);