17 lines
269 B
ObjectPascal
17 lines
269 B
ObjectPascal
|
##
|
|||
|
|
var r := 2..3;
|
|||
|
|
Assert(
|
|||
|
|
r.Cartesian(2)
|
|||
|
|
// .Println
|
|||
|
|
.ZipTuple(||2,2|,|2,3|,|3,2|,|3,3||)
|
|||
|
|
.All(\(a,b)->a.SequenceEqual(b))
|
|||
|
|
);
|
|||
|
|
|
|||
|
|
var r2 := 'b'..'c';
|
|||
|
|
Assert(
|
|||
|
|
r2.Cartesian(2)
|
|||
|
|
// .Println
|
|||
|
|
.ZipTuple(|'bb','bc','cb','cc'|)
|
|||
|
|
.All(\(a,b)->a.SequenceEqual(b))
|
|||
|
|
);
|