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))
|
|
);
|