15 lines
312 B
ObjectPascal
15 lines
312 B
ObjectPascal
begin
|
|
var h1 := HSet(1,2,3);
|
|
var h2 := HSet(1,2,3);
|
|
assert(h1=h2);
|
|
h1 := HSet(1,2,3);
|
|
h2 := HSet(1,2);
|
|
assert(h1 > h2);
|
|
assert(h2 < h1);
|
|
h1 := [1,2,3];
|
|
h2 := [1,2,3];
|
|
assert(h1=h2);
|
|
h1 := HashSet&<integer>([1,2,3]);
|
|
h2 := HashSet&<integer>([1,2,3]);
|
|
assert(h1=h2);
|
|
end. |