14 lines
398 B
ObjectPascal
14 lines
398 B
ObjectPascal
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;
|
|
|
|
foreach var (a,b) in Cartesian(1..2,3..5) do
|
|
Print($'{a}+{b}')
|
|
end. |