16 lines
316 B
ObjectPascal
16 lines
316 B
ObjectPascal
function operator=<T>(x,y: Stack<T>): boolean; extensionmethod;
|
|
begin
|
|
Result := True
|
|
end;
|
|
|
|
function operator<><T>(x,y: Stack<T>): boolean; extensionmethod;
|
|
begin
|
|
Result := not(x = y);
|
|
end;
|
|
|
|
begin
|
|
var a1 := new Stack<integer>;
|
|
var a2 := new Stack<integer>;
|
|
assert(a1 = a2);
|
|
assert(not (a1 <> a2));
|
|
end. |