21 lines
284 B
ObjectPascal
21 lines
284 B
ObjectPascal
type list<T> = class
|
|
function a: list<T>;
|
|
begin
|
|
result:=self;
|
|
assert(result=self);
|
|
end;
|
|
|
|
function b: list<T>;
|
|
end;
|
|
|
|
function list<T>.b: list<T>;
|
|
begin
|
|
result:=self;
|
|
assert(result=self);
|
|
end;
|
|
|
|
begin
|
|
var lst: list<integer> := new list<integer>;
|
|
lst.a;
|
|
lst.b;
|
|
end. |