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

ZipCartesianFuncs.pas

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2024-07-31 10:56:18 +03:00
parent c4fd47128b
commit 3db5709101
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
InstallerSamples/WhatsNew/3_9_1/ZipCartesianFuncs.pas Normal file
View file

@ -0,0 +1,11 @@
begin
Zip(1..5,2..6).Println;
Zip(1..5,2..6,(x,y) -> x+y).Println;
Zip(1..5,2..6,3..7).Println;
Zip(1..5,2..6,3..7,(x,y,z) -> x+y+z).Println;
Cartesian(1..4,3..5).Println;
Cartesian(1..4,3..5,(x,y) -> x*y).Println;
Cartesian(1..2,4..5,6..7).Println;
Cartesian(1..2,4..5,6..7,(x,y,z) -> x*y*z).Println;
end.